PC Toledo

... for Windows 2000 and later –
removed deprecated `GetVersion()` and `GetVersionEx()` APIs, removed
Windows 98/ME legacy code, replaced with `GetDefaultPrinter()` API and
`PRINTER_INFO_4` enumeration for better compatibility with Windows 2000
through Windows 11; added proper `NULL` checks for ...

... text-transform: none;" +;
"text-decoration: none;" +;
"}" +;
"</style>", oDanfe, oEmail, aRetorno, nModelo:= 55, cFilePDF, cPrinter:= GetDefaultPrinter()

hb_Default(@cArqXml, [])
hb_Default(@lCkVisual, .T.)

If nTipo == 1
cArqXml:= GetFile({{[Arquivos Xml´s - Todos], [*NFE.XML], [*NFC ...

... PCol() Say "E" + cEol // envia para a impressora
@ Prow()+0, PCol() Say "Q" + cEol // esvazia a memoria da impressora

SET PRIN TO
SET DEVI TO SCREEN

cPrinter := GetDefaultPrinter() // pega impressora padrao
for i:=1 to 2
PrintFileRaw( cPrinter, cFileImp, "Etiqueta:"+str(i,3) )
next

Return

... envia para a impressora
@ Prow()+0, PCol() Say "Q" + cEol // esvazia a memoria da impressora

SET PRIN TO
SET DEVI TO SCREEN

cPrinter := GetDefaultPrinter() // pega impressora padrao
for i:=1 to N_ETIQ
PrintFileRaw( cPrinter, cArquivo, "Etiqueta Lote ->"+str(i,3) )
next

if etiqbranca
ETIQ ...

... mingw32/bin/ld.exe: C:/Users/MICROV~1/AppData/Local/Temp/hbmk_8q1xoq.dir/rotinas5.o:rotinas5.c:(.data+0x3238): undefined reference to `HB_FUN_GETDEFAULTPRINTER'
f:/programasinstalados/hmg.3.5/mingw/bin/../lib/gcc/i686-w64-mingw32/9.3.0/../../../../i686-w64-mingw32/bin/ld.exe: C:/Users/MICROV~1 ...

... TXT]+ALLTRIM(STRZERO(A,2))
WLINHA := &xTXT+CHR(13)+CHR(10)
FSEEK ( TXTARQ, 0, 2 )
FWRITE( TXTARQ, ALLTRIM(WLINHA), LEN(WLINHA))
A++
ENDDO

FCLOSE(TXTARQ)
cArquivo := AAA
cImpressora := GetDefaultPrinter() // Pego a Impressora Padrão
PrintFileRaw(cImpressora, cArquivo, [Teste])
RETURN NIL

... external "_HB_FUN_PRINTEREXISTS" referenced from X:\XHARBOUR\CONTROLT\CT\CONTROLTSTD\OBJ\XHBIMPRESS.OBJ
Error: unresolved external '_HB_FUN_GETDEFAULTPRINTER' referenced from X:\XHARBOUR\CONTROLT\CT\CONTROLTSTD\OBJ\XHBIMPRESS.OBJ
Error: Unresolved external '_HB_FUN_GETPRINTERS' referenced from X ...

... external "_HB_FUN_PRINTEREXISTS" referenced from X:\XHARBOUR\CONTROLT\CT\CONTROLTSTD\OBJ\XHBIMPRESS.OBJ
Error: unresolved external '_HB_FUN_GETDEFAULTPRINTER' referenced from X:\XHARBOUR\CONTROLT\CT\CONTROLTSTD\OBJ\XHBIMPRESS.OBJ
Error: Unresolved external '_HB_FUN_GETPRINTERS' referenced from X ...

... external '_HB_FUN_PRINTEREXISTS' referenced from X:\XHARBOUR\CONTROLT\CT\CONTROLTSTD\OBJ\XHBIMPRESS.OBJ
Error: Unresolved external '_HB_FUN_GETDEFAULTPRINTER' referenced from X:\XHARBOUR\CONTROLT\CT\CONTROLTSTD\OBJ\XHBIMPRESS.OBJ
Error: Unresolved external '_HB_FUN_GETPRINTERS' referenced from X ...

... alltrim(AAA)
Escolhe_impressora( cArquivo ) //Escolhe_impressora_VISUAL( cArquivo ) // teste visual em 01/10/2015
/*
cImpressora := GetDefaultPrinter() // Pego a Impressora Padrão, como expliquei acima já deixo a Argox como padrão
PrintFileRaw(cImpressora, cArquivo, [Teste]) // Jogo o ...

... MATRICIAL MODO DRAFT
*-------------------------------*

local TELA_ANT
save screen to TELA_ANT

ARQ_TXT := (p_arquivo) + ".PRN"
cPrint:= GetDefaultPrinter() // pega impressora padrÆo

PrintFileRaw(cPrint,ARQ_TXT)

fclose(ARQ_TXT)
erase (p_arquivo) + ".PRN"
restore screen from TELA_ANT ...

... e funciona normal.

Se puder, teste essa função (em Harbour):
Func CortaPapel()
Local cMsg
If !File( "CortaPapel.Cfg" )
cMsg := ""
cMsg += Chr(29)+"V"+Chr(66)+Chr(0)
hb_MemoWrit( "CortaPapel.Cfg" )
Endi
win_PrintFileRaw( GetDefaultPrinter(), "CortaPapel.Cfg", "Acionar Guilhotina" )
Return Nil

Function Main()
LOCAL cImpPadrao := GetDefaultPrinter()
SetMode(25,80)
cArq = "ARQIMP"
*
Imprime(cArq, cImpPadrao, "TESTANDO IMPRESSAO")
return nil

*----------------------------------*
Function Imprime(cArq,cPrint,cTit)
*----------------------------------*
Local oPrn, aPrn:=WIN_PRINTERLIST ...

... assim


****************** Visualizar e Imprimir Arquivos PDF **************************
Procedure fVerPdf(cFilePdf)
Local cPrinter:= GetDefaultPrinter(), lCkVisual:= .T.

If _IsWindowDefined([frmAguarde])
If _IsControlDefined([Cb_Impressora], [frmAguarde])
cPrinter:= AllTrim(GetProperty ...

... 27) + CHR(33) + CHR(16) // Para Impresoras Epson
LOCAL OFF_GRANDE := CHR(27) + CHR(33) + CHR(01) // Para Impresoras Epson
LOCAL cPrinter := GetDefaultPrinter() // Seleciona la Impresora Por Defecto de Windows
//LOCAL CRLF := CHR(13) + CHR(10)
LOCAL cFileName := "TEXTO.PRN"

cTexto += "Esta es la ...