Caros colegas,
Ainda estou com um problema nesta rotina: de vez em quando, não sei porquê, ele resolve não imprimir na impressora padrão, mas em pdf, abrindo uma caixa de diálogo para eu escolher o local onde salvará o pdf.
Fiz a seguinte modificação na rotina, para tentar forçar a imprimir na impressora Epson:
cPrn := Win_PrinterGetDefault()
if at("EPSON",upper(cPrn))=0
cPrn="EPSON WF-2860 Series"
endif
Achei que isso resolveria, mas não resolveu. Ele continua tentando imprimir em pdf.
Antes já tinha tentando com:
Win_PrintDlgDC( @cPrn,,,ncop)
Mas, mesmo escolhendo a impressora Epson, ele não imprimia.
O estranho é que isso ocorre só eventualmente. Na maioria das vezes, imprime diretamente na Epson, o Win_PrinterGetDefault já pega corretamente a Epson.
Também já verifiquei que, quando reinicio o sistema, o problema é corrigido.
Alguém poderia me ajudar com isso?