Impressao - como implementar o imprimir para do explorer via codigo

Top  Previous  Next

uses 

  Printers, Shellapi; 

 

procedure TForm1.Button1Click(Sender: TObject); 

var 

  Device: array[0..255of Char; 

  Driver: array[0..255of Char; 

  Port: array[0..255of 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