Hallo, ich muss in meinem programm ein paar bilder ausdrucken.
hier mal nen Quellcode dazu:
Delphi-Quellcode:
procedure drucken;
var pic : TJPEGImage;
breite, hoehe : integer;
i : integer;
begin
if printdialog1.Execute then
begin
pic := TJPEGImage.create;
Orientation := poPortrait;
with printer do
begin
for i := 1 to Seitenanzahl do
begin
BeginDoc;
rechnung.Picture.LoadFromFile(extractfilepath(paramstr(0)) + '\Daten\Rechnungen\Seite' + inttostr(Aktuelle_Seite) + '.bmp');
pic.assign(Rechnung.Picture.Graphic);
breite := GetDeviceCaps(Printer.Handle,Horzres);
hoehe := GetDeviceCaps(Printer.Handle,Vertres);
Canvas.StretchDraw(Rect(0,0,Breite,Hoehe), pic);
EndDoc;
end;
end;
pic.Free;
end;
end;
nun meine frage bzw das problem:
Wenn ich im Printdialog den dateinamen eingebe unter dem ich speichern möchte, bzw drucken möchte, dann druckt er mir nur die erste seite aus, und fragt dann immer wieder neu bei jeder seite!
wie kann ich diese frage umgehen, so dass er alles hintereinander ausdruckt?
Vielen dank für die Hilfe