Реализация команды PrintTo

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

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;

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация по разработке на Delph - "Реализация команды PrintTo", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!