imrimir em impressora padrão apos ter passado impressora por parametro

[Dfox]

Boa tarde, pessoal

tenho no meu sistema as impressão em fastreport

o problema é quando eu imprimo

 

  frmmodulo.qrconfig.Open;

  fxOrcamento.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'rel\Ticket-IF.fr3');
  fxOrcamento.PrintOptions.Printer := frmmodulo.qrconfig.FieldByName('IMPRESSORA_TICKET').AsString;
  fxOrcamento.PrepareReport;
  fxOrcamento.PrintOptions.ShowDialog := frmmodulo.qrconfig.FieldByName('IMPRESSORA_TICKET_VISUALIZAR').AsInteger = 1;

  if frmmodulo.qrconfig.FieldByName('IMPRESSORA_TICKET_VISUALIZAR').AsInteger = 0 then
    fxOrcamento.Print
  else fxOrcamento.ShowReport;

todas impressão sai na impressora que eu setei

 fxOrcamento.PrintOptions.Printer := frmmodulo.qrconfig.FieldByName('IMPRESSORA_TICKET').AsString;

alguem sabe alguma solucão 

[Juliomar Marchetti]

após usar limpa o nome da impressora dali

[Dfox]

Resolvi para quem precisar esta ai como eu fiz

procedure TfrmOrcamentoPDV.btvend_imp_ticketClick(Sender: TObject);
var
  OldIndex: Integer;
begin
  frmmodulo.qrconfig.Open;

  OldIndex := frxPrinters.PrinterIndex;

  fxOrcamento.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'rel\Ticket-IF.fr3');
  fxOrcamento.PrintOptions.Printer := frmmodulo.qrconfig.FieldByName('IMPRESSORA_TICKET').AsString;
  fxOrcamento.PrepareReport;
  fxOrcamento.PrintOptions.ShowDialog := frmmodulo.qrconfig.FieldByName('IMPRESSORA_TICKET_VISUALIZAR').AsInteger = 1;

  if frmmodulo.qrconfig.FieldByName('IMPRESSORA_TICKET_VISUALIZAR').AsInteger = 0 then
    fxOrcamento.Print
  else fxOrcamento.ShowReport;

  // Volta a padrão no fast {Uses frxPrinter}
  frxPrinters.PrinterIndex := OldIndex;
end;

 

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.