Falha ao Imprimir PDF There is no default printer currently selected

[Willer Figueiredo]

tenho um aplicativo rodando como serviço.

Em muitos clientes venho teno problemas ao tentar gerar o danf em pdf,

Cheguei a formatar alguns pcs mas o erro vem se tornando recorrente.

Em todos os casos temos uma impressora padão bem definida.

? Existe algum método de forçar a impressora padrão do windows passando o nome?
? ou alguma outra sugestão?

[Renato Rubinho]

Se está como serviço, pode ser problema no usuário configurado no serviço.

Experimente logar no serviço com o usuário que loga no Windows para ver se passa.

[Oteniel Pinto]

Ao criar ou inicializar o serviço eu faço assim 

uses

  vcl.printers,

-------------------------------



  Printer.PrinterIndex := 0;

  if Printer.PrinterIndex < 0 then
  begin
     //se tiver preenchido o nome ...
     if NomeImpressora <> '' then
     begin
       for I := 0 to Printer.printers.Count-1 do
       if Printer.printers[I] = NomeImpressora then
       begin
         NomeImpressora := Printer.printers[I];
         Printer.PrinterIndex :=I;
         Break;
       end;

     end else
     for I := 0 to Printer.printers.Count-1 do
     begin
       NomeImpressora := Printer.printers[I];
       Printer.PrinterIndex :=I;
       Break;
     end;
  end;


  //Selecione qualquer impressora
  if Printer.PrinterIndex <0 then
  begin
   try
     Printer.PrinterIndex :=0;
   except
   end;
  end;


  //Hipotese de  não informar a impressora , o sistema ira buscar a impressora padrao
  if NomeImpressora='' then
  begin
    if Printer.PrinterIndex >= 0 then
       NomeImpressora:= Printer.Printers[Printer.PrinterIndex];
  end;

 

[Willer Figueiredo]

opa consegui resolver da seguinte forma, 
quando a maquina do cliente não conseguir ler a impressora padrão eu forço uma previamente listada no meu ERP

    Try
      Form1.ACBrNFe1.NotasFiscais.ImprimirPDF;
    except
      QrMestre.Close;
      QrMestre.SQL.Clear;
      QrMestre.SQL.Add('Select VENDA_CAMINHO_IMPRESSORA  from conffatura');
      QrMestre.Open;

      Form1.ACBrNFe1.DANFE.Impressora            := QrMestre.FieldByName('VENDA_CAMINHO_IMPRESSORA').AsString;
      Form1.ACBrNFe1.NotasFiscais.ImprimirPDF;
    End;

[Renato Rubinho]

Obrigado por reportar.

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