Как вызвать печать?

[Rebel123]

Добрый вечер. Интересует следующее:
Как вызвать печать через принтер! ну допустим на клике SpeedButton'a

[ОДИНОЧЕСТВО В СЕТИ]

используйте TPrintDialog с вкладки Dialogs

[Alex Cones]

Фленов, "Библия Delphi". Глава 13. Стр 300. Подробное описание работы с принтером.

[Alex2009]

пример распечатывает

содержимое многострочного редактора PrintMemo при нажатии кнопки printBtn:

procedure PrintForm.PrintBtnClick(Sender: TObject); 
var 
    PrnTxt: System.Text; 
    i: Integer; 
begin 
    AssignPrn(PrnTxt); 
    Rewrite(PrnTxt); 
    for i := 0 to PrintMemo.Lines.Count - 1 do 
        Writeln (PrnTxt, PrintMemo.Lines [ i ]);
    CloseFile(PrnTxt); 
end;

Для печати графики необходимо передать требуемый графический объект (изображение, график, фигуру) в канву объекта Printer. В следующем примере при нажатии кнопки PrintBfcn печатается изображение из компонента Printlmage:

procedure PrintForm.PrintBtnClick(Sender: TObject); 
begin 
    with Printer do 
    begin 
        BeginDoc; 
        Canvas.Draw(0, 0, Printlmage.Picture.Graphic); 
        EndDoc; 
    end;
end;

При необходимости пропорции распечатываемого графического объекта можно скорректировать при помощи свойства формы-контейнера PrintScale