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?

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;