Printer und Delphi

Nastarowje · 06.10.2007

Hallo,

ich arbeite mit Delphi7 Perso. und benutze die printers unit. Nun meine Frage:

Ich habe mir eine Quittung zusammengestellt und möchte diese drucken. Leider sieht die Quittung auf meinem Rechner und meinen Drucker anders aus als bei einem Kumpel. Woran liegt das? Mein Kumpel hat eine andere Bildschirm - Auflösung als ich. Liegt das vielleicht daran?

Wie kann ich den Drucker Canvas so einstellen, das immer A4 rauskommt und der Ausdruck auf jeden Drucker gleich ist?

Vielen Dank

FerFemNemBem · 06.10.2007

Halloechen,

hol Dir die Druckerparameter und arbeite beim Druck damit. Hier mal ein paar Codeschnipsel als Anregung:

Code:

begin
 With Printer do
  begin
   beginDoc;
   SX:=GetDeviceCaps(Handle,LogPixelSX);
   SY:=GetDeviceCaps(Handle,LogPixelSY);
  end;
end;

Function TTest.GetX(Value:Integer):Integer;
begin
 Result:=(LongInt(Value)*SX div 600) + RL ;
end;

Function TTest.GetY(Value:Integer):Integer;
begin
 Result:=(LongInt(Value)*SY div 600) + RO ;
 Canvas.Font.PixelsPerInch:=Round(Canvas.Font.Size/600*SY);
end;

Ich gehe hier von einem 600 DPI Drucker aus. Das kannst Du aber sicher auch noch anders loesen. Gedruckt wird dann in etwa so:

Code:

TextOut(GetX(500),GetY(2000),'Test');

Gruss, FFNB.

Nastarowje · 07.10.2007

Hallo,

warum rundest du nur bei gety die pixels per inch und wofür ist das SX:=GetDeviceCaps(Handle,LogPixelSX); ?

Vielen Dank

Nastarowje · 07.10.2007

Hallo @all, ich habe ein recht einleuchtendes Tutorial zum Thema Drucken gefunden. Sollte jemand dieses als PDF haben wollen, dann mich direkt kontaktieren.

Schöne Grüße

Printer und Delphi

Nastarowje

FerFemNemBem

Nastarowje

Nastarowje

Printer und Delphi

ANGEBOTE & SPONSOREN

Neueste Beiträge

Statistik des Forums