Реализация команды 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;