Problema com PrintFileRaw
Enviado: 31 Mar 2017 12:13
olá pessoal, na rotina abaixo, estou tentando imprimir um arquivo.txt, no PrintFileRaw, a impressão do documento
entra na fila de impressão, mas não imprime e como mostrado abaixo, tanto cPrinterName como cFile, estão corretos,
a impressora está instalada, fiz teste de impressao e está imprimindo normalmente, mas pelo sistema não imprime
a rotina está errada ? alguém ja teve esse tipo de problema ?
nResult = 1
cPrinterName = HP DeskJet 3510 series
cFile = C:\OpenRel\relatorio.txt
Harbour 3.2 + HwGui
Windows 7
entra na fila de impressão, mas não imprime e como mostrado abaixo, tanto cPrinterName como cFile, estão corretos,
a impressora está instalada, fiz teste de impressao e está imprimindo normalmente, mas pelo sistema não imprime
a rotina está errada ? alguém ja teve esse tipo de problema ?
Código: Selecionar todos
IF LEFT(UPPER(cPrinterPort),3)="USB"
nResult := PrintFileRaw( cPrinterName, cFile, "Impressao Pelo Sistema" )
hwg_MsgYesNo("nResult " + str(nResult) + " cPrinterName " + cPrinterName + " cFile " + cfile , "Atenção" )
ELSEIF nResult = -1
cMsg = "Parametros Invalido, Favor Tentar Novamente"
ELSEIF nResult = -2
cMsg = "Falha na chamada da Impressora, Favor Verificar a Impressora"
ELSEIF nResult = -3
cMsg = "Falha ao Iniciar Impressão, Favor Verificar a Impressora"
ELSEIF nResult = -4
cMsg = "Falha ao Iniciar a Primeira Pagina, Favor Verificar a Impressora"
ELSEIF nResult = -5
cMsg = "Falha de Memoria da Impressora, Favor Verificar a Impressora"
ELSEIF nResult = -6
cMsg = "Não foi Possivel localizar o arquivo de Impressão, Favor Tentar Novamente"
ENDIF
ENDIF
cPrinterName = HP DeskJet 3510 series
cFile = C:\OpenRel\relatorio.txt
Harbour 3.2 + HwGui
Windows 7