Udskrift af tekst

Du skriver direkte på printerens canvas. Noget med absolutte koordinater og den slags. Jeg har en - godtnok ikke særlig køn - unit der forsøger at indkapsle dette i nogle smartere funktioner. Skal jeg se om jeg kan finde dem til dig?

Det må du da meget gerne - tak

Jeg vil ikke lægge det ind her - fylder lidt for meget, men måske kan du plukke nogle ideer fra det, eller måske endda bruge det.

Tak for tilsendte.
Skulle ikke undre mig om jeg kan få noget ud af det :-)

Men et svar er nok det næste

Kig lidt på det. Jeg plejer ikke at sende raketter til månen (laver gammeldags programmering, hvilket Borrisholt engang rigtigvis påpegede)

Alternativt kan du bruge en lille rutine der skiver et bestemt sted på siden.

Lav en procedure der f.eks. hedder LPrint.

procedure TForm1.Lprint(X, Y: Real; Txt: String);
var                // Print X mm hen og Y mm ned.
  Tx, Ty: LongInt;  // Tx pixels hen og Ty pixels ned.
begin
  Tx := Round((X * GetDeviceCaps(Printer.Handle, Logpixelsx)) * 10 / 254);
  Ty := Round((Y * GetDeviceCaps(Printer.Handle, Logpixelsy)) * 10 / 254);
  Printer.Canvas.TextOut(Tx, Ty, Txt);
end;

Her udskriver jeg fra en TListBox.

        Printer.BeginDoc;
        Linie := 10;  // Vi starter 10 mm nede på siden.
        LinieHojde := 8;
        for X := 0 to ListBox1.Items.Count - 1 do
        begin
--->      LPrint(16, Linie, Copy(ListBox1.Items[X], 0, 80));
          // 16 mm hen og Linie mm ned.
          Linie := Linie + LinieHojde;
          if Linie > Sidehojde then
          begin
            Newpage;
            Linie := 10;
          end;
        end;
        Printer.EndDoc;

Smid lige et svar HRC - det var din kode der gav mig et spark

Kom du videre med programmet eller er du sparket ud af firmaet? I så fald må du undskylde.

Ikke den slags spark :-)