Drucken der Programm Oberfläche

[WIng2005]

Hallo foofighter85,

ich hatte das ganze bei mir so umgesetzt:

Delphi-Quellcode:

procedure TMainForm.Screenshotdrucken1Click(Sender: TObject);
var form:TBitmap;
    MyFormat : Word;
    AData : THandle;
    APalette : HPALETTE;
begin
try
try
mainform.PrintScale:=(poPrintToFit);
form:=Mainform.GetFormImage;
printer.Orientation:=poLandscape;
if PrintersetupDialog1.Execute then  //mainform.print;
Begin
  try
    printer.BeginDoc;
    printer.canvas.stretchdraw(rect(0,0,printer.pagewidth,printer.pageheight),form);
  finally
    printer.EndDoc;
  end;
end
else  //Nutzer bricht Druck-Dialog ab -> Bild verbleibt in Zwischnablage 
Begin
  form.SaveToClipBoardFormat(MyFormat,AData,APalette);
  ClipBoard.SetAsHandle(MyFormat,AData);
end;
finally
  form.Free
end;   
except
Fehler_Durchgefuehrung; //Fehlermeldung ausgeben
end;
end;

Wenn der Nutzer hier den Druckdialog abbricht, bleibt die Form als Bild in der Zwischenablage....so könnte man diese in anderen Programmen nutzen...
Vielleicht nützt es Dir ja was....

MFG
Steffen

[SaFu]

Zitat von DeddyH:

BTW:

Zitat von fuknersascha:

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Form1.Print;
end;

Besser keine benannten Instanzen verwenden, sondern entwederself.Print; oder einfach nurPrint;

mach das noch also Form1. weglassen

[WIng2005]

@foofighter85: schau dir mal printer.orientation an

MFG
Steffen

[foofighter85]

alles klar....vielen dank erstmal