pogledaj u helpu: recimo, ovo je primer odatle
Code:
uses Printers
var
r: TRect;
i: Integer;
begin
with Printer do
begin
r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200));
BeginDoc;
Canvas.Brush.Style := bsClear;
for i := 0 to Memo1.Lines.Count do
Canvas.TextOut(200,200 + (i *
Canvas.TextHeight(Memo1.Lines.Strings[i])),
Memo1.Lines.Strings[i]);
Canvas.Brush.Color := clBlack;
Canvas.FrameRect(r);
EndDoc;
end;
mislim da je jednostavno...dobijes canvas i po njemu crtas sta god hoces. pogledaj za novu stranu ne secam se kako ide, ali sve moze tako da se uradi
Ride the rainbow, crack the sky