Seitenränder entfernen

[ddcool]

Hallo zusammen,

ich würde gerne von Euch wissen, wie ich es hinbekomme die Seitenränder beim Drucken aus meiner eigenen Delphi-Anwendung
zu entfernen. Ich benutze den ganz normalen Printer.BeginDoc und Printer.EndDoc Befehl. Dazwischen wird auf dem Canvas einiges gezeichnet.

Habe schon einige Lösungen gefunden, die aber leider alle nicht funktionieren. Der drucken unterstützt das auch und aus Word z.B. funktioniert alles prima.

Wäre über Hilfe sehr dankbar.



Grüße

ddcool

[sniper_w]

TPrinterSetupDialog vorher aufrufen, Seitenränder entfernen, dann drucken.

[ddcool]

Hat leider keine Auswirkung auf das Druckbild. Außerdem müsste man den PageSetupDialog ja auch iwie mit dem Druckvorgang verknüpfen bzw die Optionen, die man gesetzt hat dem Drucker übergeben.

[Matze]

Zitat von ddcool:

Außerdem müsste man den PageSetupDialog ja auch iwie mit dem Druckvorgang verknüpfen bzw die Optionen, die man gesetzt hat dem Drucker übergeben.

Das müsste einfach so gehen, wenn ich mich recht erinnere:

Delphi-Quellcode:

if PrinterSetupDialog1.Execute then
begin
  Printer.BeginDoc;
  // ...
  Printer.EndDoc;
end;

[ddcool]

Jo super das geht sogar auch so. VIELEN DANK!!!!!!!!!!!!!!

Gruß ddcool