Imprimir No Quick Report

[jo_user]

Pessoal boa tarde, estou com uma dúvida no Quick Report, quando mando para a impressora ele automaticamente envia para LPT1: da minha máquina, é possível direcionar para qual impressora eu desejo enviar LPT2: ou USB?

Obrigado.

[Micheus]

Pessoal boa tarde, estou com uma dúvida no Quick Report, quando mando para a impressora ele automaticamente envia para LPT1: da minha máquina, é possível direcionar para qual impressora eu desejo enviar LPT2: ou USB?

jo_user, normalmente o quick utiliza a impressora padrão.

No preview você pode alterar a impressora destino através do botão de configuração da impressão.

Se for para alterar a impressora programaticamente, também dá. O que você quer realmente?

[jo_user]

Bom dia, o que eu gostaria era que o programa direcionasse a impressora, porque senão o programa fica restrito a impressora padrão.

Obrigado.

[kartter]

você pode aterar sua imp. padrão de acordo com a sua escolha.

Utilize o seguinte código p/ alterá-la:

procedure MudaImpressora(index: integer); 
var 
  szPrinterName, szIniInfo, szSection: PChar; 
begin 
  try 
   GetMem(szPrinterName, SizeOf(Char) * 256); 
   GetMem(szIniInfo, SizeOf(Char) * 256); 
   GetMem(szSection, 10); 
   if (Pos(' on ', Printer.Printers[index]) = 0) then 
     StrPCopy(szPrinterName, Copy(Printer.Printers[index], 1, Length(Printer.Printers[index]))) 
   else 
     StrPCopy(szPrinterName, Copy(Printer.Printers[index], 1, Pos(' on ', Printer.Printers[index]) - 1 )); 
   GetProfileString('DEVICES', szPrinterName, nil, szIniInfo, 254); 
   if szIniInfo^ <> #0 then 
     begin 
     StrCat(szPrinterName, ','); 
     StrCat(szPrinterName, szIniInfo); 
     WriteProfileString('Windows', 'DEVICE', szPrinterName); 
     StrCopy(szSection, 'Windows'); 
     PostMessage(HWND_BROADCAST, WM_WININICHANGE, 0, LongInt(szSection)); 
   end; 
   FreeMem(szPrinterName, SizeOf(Char) * 256); 
   FreeMem(szIniInfo, SizeOf(Char) * 256); 
   FreeMem(szSection, 10); 
 except 
   on E: EOutOfMemory do ShowMessage(E.Message); 
   on E: EInvalidPointer do ShowMessage(E.Message);                    
 end; 
end;

O valor que é passado como parametro p/ o procedimento, se refere ao índice da impressora. você pode obter a lista de suas impressoras, c/ seu respectivo índice utilizando o código abaixo:

function slListaImpressoras: TStringList; 
var 
      i: Integer; 
      slTmp: TStringList; 
begin 
  slTmp := TStringList.Create; 
  for i := 0 to Pred(Printer.Printers.Count) do 
    slTmp.Add(Printer.Printers[i]); 

  Result := slTmp; 
end;

Falow!!

Kartter

[jo_user]

Obrigado pela ajuda.

[Micheus]

kartter, parece-me que este procedimento altera a impressora padrão do Windows, ou seja, para todos os aplicativos.

Se o jo_user, quiser mudar apenas a do QuickReport, o caminho é um pouco diferente. Para ele a "informação" está em QRPrinter (se não me engano)

Abraços