1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

procedure TForm1.Button1Click(Sender: TObject);
var
    device, driver, port: array [0..255] of char;
    hdmode              : THandle;
    pdmode              : PDevMode;
    dc                  : HDC;
begin
    //Druckerspeicher belegen
    Printer.GetPrinter(device, driver, port, hdmode);
    pdmode := GlobalLock(hdmode);
    pdmode^.dmFields := pdmode^.dmFields or dm_PaperSize;

    //Blatt einstellen
    Printer.Orientation := poPortrait;
    pDmode^.dmPaperSize := dmPaper_A4;
    pDMode^.dmDefaultSource := DMBIN_CASSETTE;

    //Drucken starten
    Printer.BeginDoc;

    SetBkMode(Printer.Canvas.Handle, TRANSPARENT);
    dc := GetDC(Printer.Handle);
    SetMapMode(dc, MM_LOMETRIC);

    Printer.Canvas.Font.Name := 'Arial';
    Printer.Canvas.Font.Style := [fsBold];
    Printer.Canvas.Font.Color := clBlack;
    Printer.Canvas.Font.Size := 12;
    Printer.Canvas.TextOut(500, 500, 'Hallo Welt'); //5cm von oben und links
  
    Printer.EndDoc;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

    //A3
    //Printer.Orientation := poLandscape;
    pDMode^.dmFields := pDMode^.dmFields or DM_ORIENTATION;
    pDMode^.dmOrientation := DMORIENT_LANDSCAPE;
    //ab hier läufts
    pDMode^.dmFields := pDMode^.dmFields or DM_PAPERSIZE;
    pDMode^.dmPaperSize := DMPAPER_A3;
    pDMode^.dmFields := pDMode^.dmFields or DM_DEFAULTSOURCE;
    pDMode^.dmDefaultSource := DMBIN_LOWER;