udskriv til printer

Hvad gør LOCATE?

Er ikke helt sikker på at det her er hvad du vil men:
----------------------------
uses printers;

Procedure print;
begin
  printer.begindoc;
  printer.canvas.textout(x,y,text)
  printer.enddoc;
end;

hej snorga jeg prøver det lige

Snorga> Locate i Basic er det samme som gotoxy i Pascal.

perolsen> Snorga glemte at fortælle at i textout(x,y,text) er hhv. x og y pixels, afhængig af printerens karakteropløsning (f.eks. 300x300 dpi) og ikke kolonne og linie, som jeg gætter på at du tror.

I delphi (d.v.s. i Windows) skriver man til printeren i pixels og for at kunne skrive som tekst som i gamle dage i dos, skal man beregne x/y værdierne ud fra printerens opløsning, skrifttypen, karakterstørrelsen o.s.v.

Selvom Textout er ok, så er det nok lettere at lære at bruge f.eks. Quickreport der følger med Delphi.

Men.. Det er muligt.

på www.borland.com, under techsupport er der en nydelig unit der indeholder alle dele for at kunne fremstille en udskrifts funktion, incl. styring af printer, sideskift, hoveder/fødder, o.s.v.

Hvis du ikke kan finde den vil jeg gerne sende den til dig, da jeg har downloadet den for nogen tid siden.

sjensen