oPrinter:SetFont( "Lucida Console", 10,{3,-60},FW_BOLD,.F.,.F. ), determina o tipo de impressao, mas não sei onde por esse comando
na rotina abaixo no xHarbour.
Código: Selecionar todos
PROCEDURE W32PRN_(arqtxt,nomeimpressora,tipo_de_impressao)
Local cPrinter := ALLTRIM(nomeimpressora)
Local nResult, cMsg:=""
cFileName := "C:\ARQUIVOS\" + arqtxt
SET PRINTER TO
SET DEVICE TO SCREEN
If !File("&cFileName")
Return Nil
Else
nResult := PrintFileRaw( cPrinter, cFileName, "Impressao Pelo Sistema" )
IF 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
IF len(alltrim(cMsg)) > 1
Alert(HB_ANSITOOEM(cMsg) )
ENDIF
EndIf
Return Nil
