Архив форумов ЦИТФорума

[Black_Guardian]

Delphi

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if (PrintDialog1.Execute = true) then
begin
Printer.BeginDoc;
Printer.Canvas.Font.Name := Memo1.Font.Name;
Printer.Canvas.Font.CharSet := Memo1.Font.Charset;
Printer.Canvas.TextOut(100,100, Memo1.Lines.Text);
Printer.EndDoc;
end;
end;

Пытаюсь распечатать из мемо досовский текст. При компилировании вываливаеться ошибка:
[Error] MainForm.pas [176] Incompatible types: 'TFontCharSet' and 'TFontCharset'

Если другой способ вывода текста на печать?
Как указать кодировку такуюже как и в мемо?

И в догоку:
Как распечатать документ именно на тот принтер который был выбран в PrintDialog а не тот который указан в системе по умолчанию?