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

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
;

Другое по теме:

• Escape код PASSTHROUGH
• Вместо печати графики использовать резидентный шрифт принтера
• Вывести все способы подачи бумаги для печати