Извините друзья за такое назойничество, но я опять в проблемах.
Код:
procedure TForm1.Button2Click(Sender: TObject);
begin
with printer do
begin
BeginDoc;
font.name:='Times New Roman';
Canvas.StretchDraw(PRect,Bitmap);
EndDoc;
end;
end;
Че то он не хочет компилиться, говорит типа команда printer ему не известна. Хотя я читал на форумах что она стандартно присоединена в uses.