PC Toledo

... 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 ...

... está no manual.
Compilei um primeiro programa q estava em xHarbour, tive vários problemas com nomes de funções q são diferente (getPrinter, getDefaultPrinter), mas achei as respostas aqui no forum e foi de boa, só que ao tentar rodar esse programa em uma máquina q é 32 bits, ele deu erro, falando ...

... leitor de pdf.

Usei o comando abaixo, mas não imprime. Envia para o spool de impressão, mas fisicamente não imprime.


WIN_PrintFileRaw(GetDefaultPrinter(), [boleto.pdf], "Impressao de Boletos")

Alguém poderia ajudar na solução.

Obrigado

Att.

Marcelo A. L. Carli
Marília/SP
Capital ...