GetPrinter, como usa ???

Question

Ol� amigos,estou precisando imprimir em um mesmo moneto de execu��o em mais de uma impressora, a fun��o para descobrir as impressoras eu sei q � getprinter, mas alguem tem um exemplo, s� para me dar u...

Vinicius2k · Answer

Marlon,vc fala da GetPrinter da API ou TPrinter.GetPrinter ?se for a segunda op��o � assim :utilizo esse c�gido antes do BeginDoc para que o sistema imprima na impressora que selecionei num PrintDialog e n�o sempre na padr�o[quote:1399b23c41]procedure PegaImpressora;  var     Device, Driver, Port : array[0..255] of char;    hDMode : THandle;begin Printer.GetPrinter(Device, Driver, Port, hDMode);end;[/quote:1399b23c41]caso vc precise de algo mais talvez assim :assim vc instancia uma nova impressora (aPrinter)... dando um get para a impressora que vc quiser (Nome)...[quote:1399b23c41]procedure PegaImpressoraEspecifica(Nome: String);  var     Device, Driver, Port : array[0..255] of char;    hDMode : THandle;begin  Printer.PrinterIndex:= -1;  aPrinter:= TPrinter.Create;  // vari�vel global do tipo TPrinter  for i:= 0 to (Printer.Printers.Count - 1) do  begin   if Printer.Printers = Nome then    begin     aPrinter.PrinterIndex:= i;     aPrinter.GetPrinter (Device, Driver, Port, hDMode);    end;  end;end;[/quote:1399b23c41]espero ter ajudado......

F�rum GetPrinter, como usa ??? #187173