Druckrand vom Drucker berücksichtigen

[RWarnecke]

Hallo zusammen,

ich habe da ein kleine Problem. Ich habe ein kleine Programm geschrieben, welches mit die Vorlage Zwckform 65 bedruckt. Funktioniert auch wunderbar auf meinem Drucker. Nun wollte ich das Programm an einem anderen Drucker testen, nur da wird der Ausdruck um ein paar Milimeter versetzt ausgedruckt. Den Ausdruck realisiere ich folgendermaßen :

Delphi-Quellcode:

uses
  Printers;

{...}
  with Printers do
  begin
    BeginDoc;
    { Entsprechende Anweisungen mit Canvas }
    EndDoc;
  end;
{...}

Wie kann ich hierbei den Druckrand des Drucker berücksichtigen, dass der Ausdruck auf dem Blatt immer an der gleichen Stelle rauskommt, egal welchen Druckertyp ich verwende ?

[DeddyH]

Den Druckrand müsstest Du mit GetDeviceCaps und den entsprechenden PHYSICALOFFSET*-Konstanten herausbekommen können.

[Satty67]

Randbreite erfahren sollte kein Problem sein, RWarneke hat ja sogar mal eine Drucker-Komponente geschrieben (glaube ich...)

Wenn sichergestellt werden muss, das der Druck auch mit Randabständen immer gleich ist, ausreichend Reserve einbauen. Ich verwende eine Randbreite, die bei den meisten Druckern ausreicht: Oben 15mm, restliche Ränder 7mm

Also oben 15mm Minus tatsächlicher Rand ist dann meine erste bedruckbare Position im Programm.

[RWarnecke]

Zitat von Satty67:

Randbreite erfahren sollte kein Problem sein, RWarneke hat ja sogar mal eine Drucker-Komponente geschrieben (glaube ich...)

Danke für den kleinen Hinweis mit dem Zaunpfahl. Aber in meiner Komponente ist die Ermittlung des Druckrandes nicht drin. Aber ich habe es schon in meine ToDo-Liste mit aufgenommen.

Zitat von Satty67:

Wenn sichergestellt werden muss, das der Druck auch mit Randabständen immer gleich ist, ausreichend Reserve einbauen. Ich verwende eine Randbreite, die bei den meisten Druckern ausreicht: Oben 15mm, restliche Ränder 7mm

Also oben 15mm Minus tatsächlicher Rand ist dann meine erste bedruckbare Position im Programm.

Danke, dass ist für mich schonmal ein wichtiger Hinweis. Mir geht es nicht darum wie ich den Druckrand ermittel, sondern wie ich diesen beim Positionieren der Texte und/oder Grafiken mit Canvas berücksichtige ?

[Reinhard Kern]

Zitat von RWarnecke:

.... Mir geht es nicht darum wie ich den Druckrand ermittel, sondern wie ich diesen beim Positionieren der Texte und/oder Grafiken mit Canvas berücksichtige ?

Hallo,

also entweder berücksichtigst du bei allen Druckausgaben einen XOffset, YOffset (schön wenn man das von Anfang an eingeplant hat) oder du verschiebst den Nullpunkt mit SetWindowOrgEx / SetViewportOrgEx - aber das ist halt so ein verhasstes Teufelszeug aus der Win32-API und kein "echtes" Delphi.

Gruss Reinhard

PS ich habe das bei meinen Druck-Klassen von Anfang an drin aus dem entgegengesetzten Grund: ich wollte einen einstellbaren Rand.