[poli-smen]

Сообщение от udachnik2

Извините друзья за такое назойничество, но я опять в проблемах.

Код:

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.

Нет, нестандартно, нужно подключать самому:

Код:

uses
  ..., Printers