Drucken der Programm Oberfläche

[foofighter85]

hab bei meinem programm jetzt auch die Option PrintDialog eingefugt und es wird auch das Fenster geöffnet für den Dialog...jedoch wenn ich auf "Drucken" klicke passiert nichts.
Gedruckt werden soll lediglich die Oberfläche des Programms.

hab das ganze bis jetzt nur soweit realisiert, da ich sonst keine Ahnung habe vom Drucken bei Delphi.

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
PrintDialog1.Execute;
end;


wäre cool, wenn mir jemand weiterhelfen könnte

[SaFu]

Dein Printdialog ist dafür da um dir deinen Drücker zu wählen, den kannst aber auch rauswerfen und einfach nur

Delphi-Quellcode:

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

Probieren :zwinker:

Gruß Sascha

[DeddyH]

In welchem Thread soll es denn nun weitergehen?

[SaFu]

@DaddyH
Jetzt hast du Ihn verschreckt und er ist abgehauen :mrgreen:

[DeddyH]

BTW:

Zitat:

Zitat von fuknersascha

Delphi-Quellcode:

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

Besser keine benannten Instanzen verwenden, sondern entweder

Delphi-Quellcode:

self.Print;

oder einfach nur

Delphi-Quellcode:

Print;

[foofighter85]

wird das denn auch direkt zurechtgeschnitten für eine DINA4 Seite ?
hab das jetzt probiert und das ist nicht alles komplett drauf

[DeddyH]

Da wird nichts zugeschnitten, das musst Du schön alles selbst ausrechnen.

[foofighter85]

und wie kann ich da vorgehen? also meine oberfläche hat die Maße 930 x 1400

[DeddyH]

Das ist nicht ganz trivial. Deine Maße sind in Pixeln, der Drucker gibt Dir auf Anfrage seinen druckbaren Bereich in 1/10 mm zurück. Eins von beiden musst Du also ins andere Format konvertieren (z.B. mit SetMapMode). Danach musst Du Dir ausrechnen, um welchen Faktor Du das Bild ggf. verkleinern musst und dies dann tun (StretchBlt). Anschließend kannst Du das Bild ausdrucken, indem Du es auf der Zeichenfläche (Canvas) des Druckers ausgibst.

[edit] Eins von vielen Tutorials zu TPrinter habe ich gerade hier gefunden. [/edit]

[foofighter85]

hab das nun so gelöst....


procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
PrintDialog1.Execute;
Form1.PrintScale := poPrintToFit;
Form1.Print;
end;


kann ich das nun noch auf querformat umstellen oder geht das nur über PrinterSetupDialog?