Реализация команды PrintToDelphi , ОС и Железо , Принтеры и ПечатьРеализация команды PrintTo
Оформил: DeeCo uses Printers, Shellapi; procedure TForm1.Button1Click(Sender: TObject); var Device: array[0..255] of Char; Driver: array[0..255] of Char; Port: array[0..255] of Char; S: string; hDeviceMode: THandle; documentname: string; begin Printer.PrinterIndex := -1; // select a printer, in this case default Printer.GetPrinter(Device, Driver, Port, hDeviceMode); S := Format('"%s" "%s" "%s"', [Device, Driver, Port]); documentname := 'c:\anydocument.doc'; ShellExecute(Handle, 'printto', PChar(documentname), PChar(S), nil, SW_HIDE); end; Статья Реализация команды PrintTo раздела ОС и Железо Принтеры и Печать может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Принтеры и Печать ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |