procedure TForm1.Button1Click(Sender: TObject);
begin
printer.BeginDoc;
SetMapMode(printer.Canvas.Handle, MM_LOMETRIC);
with printer.Canvas do
begin
Rectangle(250,-100,1460,-1310);
Font.Height:=100;
Font.Name:='Verdana';
TextOut(600,-600,'Zkušební tisk');
end;
printer.EndDoc;
end;
Jak vidíte, kód je velmi jednoduchý a jedná se vlastně o kreslení, na které jste asi zvyklí, s tím rozdílem, že probíhá na papíře a nikoliv na monitoru. Je třeba si uvědomit jen dvě věci. Tou první je, že veškeré jednotky odpovídají desetině milimetru, takže například parametr "250" ve funkci Rectangle odpovídá 2,5 cm (vzdálenost od levého okraje + asi 2 milimetry rezerva pro tiskárnu).