F�rum Buscar impressora automaticamente durante execu��o #400025

29/04/2011

Boa tardeestou desenvolvendo uma forma em um dos meus software que determinados relat�rios puxem certas impressoras da rede automaticamente sem precisar de trocar no setup da impress�o ou colocar a impressora como padr�o,porem n�o sei como fazer isto, ser� que algu�m poderia me ajudar?
eu uso Delphi 2010 e Rave Report para desenvolver os relat�rios

Jeovanne Berger

Curtir t�pico

+ 0

Responder

Posts

29/04/2011

Andr� Silveira

Eu faria assim:
Criaria um cadastro de impressora por relat�rio do sistema, utilizando um combobox para pegar as impressora que est�o instaladas na m�quina, ao selecionar qual impressora ele quer para cada relat�rio, salvaria no banco e na impress�o do relat�rio setaria essa impressora como padr�o e depois voltaria a impressora que era padr�o antes de imprimir.
Mais ou menos assim:
La�o de preenchimento do combo:
For i := 0 to Printer.Printers.Count - 1 do ComboBox.Items.Add(Printer.Printers[i]);/*Com esse la�o pego todas impressora pelo nome*/
Criaria a procedure abaixo:

procedure SetDefaultPrinter(PrinterName: String);
var
  I: Integer;
  Device : PChar;
  Driver : Pchar;
  Port : Pchar;
  HdeviceMode: Thandle;
  aPrinter : TPrinter;
begin
  Printer.PrinterIndex := -1;
  getmem(Device, 255);
  getmem(Driver, 255);
  getmem(Port, 255); 
  aPrinter := TPrinter.create;
  for I := 0 to 
Printer.printers.Count-1 do
  begin
  if Printer.printers[i] = PrinterName then
  begin
  aprinter.printerindex := i;
  aPrinter.getprinter
  (device, driver, port, HdeviceMode);
  StrCat(Device, ',');
  StrCat(Device, Driver );
  StrCat(Device, Port );
  WriteProfileString('windows', 'device', Device);
  StrCopy( Device, 'windows' );
  SendMessage(HWND_BROADCAST, WM_WININICHANGE,
  0, Longint(@Device));
  end;
  end;
  Freemem(Device, 255);
  Freemem(Driver, 255);
  Freemem(Port, 255);
  aPrinter.Free;
end;

Antes de imprimir:var PrinterPad, PrinterSel : String;
PrinterPad :=Printer.Printers[Printer.PrinterIndex] /*Pegando a impressora padr�o pelo nome*/PrinterSel := Query.Fields[0].AsString; /*Carregando a impressora selecionada para ser a padr�o
SetDefaultPrinter(PrinterSel); /*Setando ela como padr�o
Mando Imprimir; /*Imprimo o relat�rio
SetDefaultPrinter(PrinterPad); /*Volto a impressora padr�o que tinha antes.

Responder

Gostei + 0

02/05/2011

Jeovanne Berger

eu consigo usar este forma no rave?pois as variaveis TPrinter n�o est�o funcnionandotem algo que poderia fazer?obrigado

Responder

Gostei + 0

18/04/2013

Jos�

Este t�pico esta sendo fechado por inatividade. Se necess�rio, sinalizar para que seja reaberto ou abrir um novo.

Responder

Gostei + 0

18/04/2013

Andr� Silveira

Qual o problema com o Printers ?

Quanto a funcionar no rave, funciona sim, uma vez que mudar� a impressora padr�o do windows (tem que ter elas instaladas na m�quina) antes de imprimir e depois volta para a impressora que era a padr�o antes de imprimir.

Responder

Gostei + 0