Criar Impressora pelo Delphi 2006

Delphi

05/07/2007

Galera gostaria de saber se tem como criar uma impressora Generica para o Delphi, pois estou tendo problemas nos relatórios do Quick quando não se tem impressora no Windows, então gostaria de criar uma no braço atraves da classe TPrinter....valeu e depois destruir ela...


Gm.gui

Gm.gui

Curtidas 0

Respostas

Jáder Medeiros

Jáder Medeiros

05/07/2007

Function InstalaImpressora(pNomeImpressora,pPorta,pDriver,pLocal,pComentario: String): Boolean;
var
   hPrinter: HWND;
   pi2: PRINTER_INFO_2;
begin
   hPrinter := 0;
   try
      ZeroMemory(@pi2,SizeOf(PRINTER_INFO_2));
      pi2.pServerName     := ´´;
      pi2.pComment        := PChar(pComentario);//´Impressora do Jáder´;
      pi2.pLocation       := PChar(pLocal);//´Virtualmente´;
      pi2.pPrinterName    := PChar(pNomeImpressora);//´Jader´;
      pi2.pPortName       := PChar(pPorta);//´LPT1:´;
      pi2.pDriverName     := PChar(pDriver);//´Generic / Text Only´;
      pi2.pPrintProcessor := ´WinPrint´;
      pi2.pDatatype       := ´RAW´;
      pi2.Attributes      := PRINTER_ATTRIBUTE_LOCAL;
      hPrinter            := AddPrinter(´´,2,@pi2)
   finally
      Result := hPrinter <> 0;
      if Result then begin
         ClosePrinter(hPrinter);
         MessageDlg(´Reinicie o sistema para que a nova impressora seja reconhecida por ele.´,mtInformation,[mbOK],0);
         Abort
      end
   end
end;



GOSTEI 0
POSTAR