2xForm Drucken auf 1 Din A4 Blatt

**Natcree**

Hallo ich möchte über den folgenden Code meine Form Ausdrucken.
Diese soll auf 1 Blatt papier 2x rauf

Hier ist der Code zum Drucken was muss ich Hier noch ändern?

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.DruckenClick(Sender: TObject);

var form:TBitmap;

     MyFormat : Word;

     AData : THandle;

     APalette : HPALETTE;

 begin

 Button2.Visible:=False;

 try

 form1.Color:= clwhite;

 try

 Form1.PrintScale:=(poPrintToFit);

 form:=form1.GetFormImage;

 printer.Orientation:=poPortrait;

 Begin

   try

     printer.BeginDoc;

     printer.canvas.stretchdraw(rect(0,0,4800,3500),form);

     finally

     printer.EndDoc;

   end;

 end;

//Nutzer bricht Druck-Dialog ab -> Bild verbleibt in Zwischnablage

Begin

   form.SaveToClipBoardFormat(MyFormat,AData,APalette);

   ClipBoard.SetAsHandle(MyFormat,AData);

 end;

 finally

 form.Free;

 form1.Color:= clbtnface;

 Button2.Visible:=true;

end;

except

end;

 end;

2xForm Drucken auf 1 Din A4 Blatt

2xForm Drucken auf 1 Din A4 Blatt

Forumregeln