---

Følgende program udprinter en ListBox med navne til en Lexmark 3200 printer
på LPT1.
På LPT2 koblede jeg en IBM 4019 Læser Printer.
Men nu er der dobbelt afstand mellem kolonner og rækker, når jeg bruger IBM
printeren.
Er der en som kan forklare denne forskel og hvordan jeg kan rette det ??
Jeg bruger Delphi 6.

procedure TForm1.Button1Click(Sender: TObject);
var
X, Y, Z, L, K : Integer;
Navn : String;
begin
X := 100; // Udprintnings afstand fra venstre.
Y := 80; // Udprintnings afstand fra toppen.
K := 0;
Printer.Orientation := poPortrait;
Printer.BeginDoc;
For Z := 0 To ListBox.Items.Count - 1 Do Begin
L := Length(ListBox.Items[Z]);
Navn := Copy(ListBox.Items[Z],0,(L));

If Z >= 81 Then Begin
X := 1100;
K := 81;
End;
If Z >= 162 Then Begin
X := 2100;
K := 162;
End;
If Z >= 242 Then Begin
X := 3100;
K := 242;
End;
Printer.Canvas.TextOut(X,100 + Y * (Z - K), Navn);
End;
Printer.EndDoc;
end;
--
På forhånd tak for et eventuelt svar.
----
Med venlig hilsen
Henning Madsen

---

Hej.

"Henning Madsen" <HKM@madsen.tdcadsl.dk> wrote in message
news:3e73954a$0$31942$edfadb0f@dread12.news.tele.dk...
> Følgende program udprinter en ListBox med navne til en Lexmark 3200
printer
> på LPT1.
> På LPT2 koblede jeg en IBM 4019 Læser Printer.
> Men nu er der dobbelt afstand mellem kolonner og rækker, når jeg bruger
IBM
> printeren.
> Er der en som kan forklare denne forskel og hvordan jeg kan rette det ??

De to printere kører formentlig med forskellig DPI.
Eksempelvis 300 DPI og 600 DPI vil give ovenstående effekt.

Tag et kig på Pageheight og Pagewidth properties, og juster dit print efter
disse.

--

Med venlig hilsen/Best regards
Stig Johansen
Stig.Johansen@udvikling.it.dk
(remove dot dk)