PC Toledo

win_PrintFileRaw
Function Main
clear
sFile := 'c:\temp\file_to_print.prn'
Aprn = GetPrinters(.t.)
prin := {}
for i = 1 to len(aprn)
aadd(prin,aprn[i,1])
next

op = Achoice(5,5,08,60,prin)

clear
@ 5,5 say aprn[op,1]
@ 5,30 say aprn[op,2]

Set Device To Print
Set Print On
Set Print To sFile

@ 1,1 ...

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

... 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_B.RELEASE
endif

Return

... tem uma cliente que NAO comprime na VERTICAL.

uso o comando: @ prow(), 00 say chr(27)+"0"

estou direcionando para um arquivo e depois uso o PrintFileRaw(pprt,a) para imprimir.


se trato direto como MATRICIAL NAO imprime. a M. do Win costuma fazer isso funciona e de repente para de funcionar..
ai ...

... a impressão para um arquivo
SET PRINTER TO arquivo.txt

// código do relatório

// finalizar o relatório
SET PRINTER TO

// enviar para a impressora
win_PrintFileRaw(win_PrinterGetDefault(), "arquivo.txt")

// remover arquivo temporário
FErase("arquivo.txt")


Precisa incluir hbwin.hbc na compilação.

olá, use o comando PRINTFILERAW() ou Win32Prn():new( cPrn ).

Regards, saludos.

... nas fun‡äes:
GetDefaultPrinter(), CreateObject(), hb_SetCodepage()
hbmk2: Dica: Adicionar op‡Æo 'hbwin.hbc' faltando nas fun‡äes:
win_PrintFileRaw(), win_printerStatus(), win_Prn(),
win_printerGetDefault(), win_OEMToANSI(), wapi_MessageBox(),
wapi_DestroyMenu(), wapi_GetActiveWindow ...

... 716f4Yor3v3ehTwpExN8n/P4ZU/w+4UUUnF8dj/+S7zquI2L8A703y0s=:C21C"

// Termina Etiquetas
? "^XZ"

Setalternate()
WIN_PrintFileRaw(cPrinter, [COD_BARRA.TXT], [BARRA])
ferase([COD_BARRA.TXT])

Next

Setalternate()
WIN_PrintFileRaw(cPrinter, [COD_BARRA.TXT], [BARRA ...

... enviar caracteres para resetar e converter para 10PP

+++ pelo visto NAO funcionou usei de um arquivo printer.dbf +++ por enviar o txt pelo PrintFileRaw(pprt,a,pprograma)
não sei se poderia.

mandei chamar um tec para configurar na Impressora MANUALMENTE 10PP

a EPSON deveria ter um Aplicativo ...

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

... FSeek (Prn_HANDLE,0,2) //POSICIONE NO FIM DO ARQUIVO
FWrite(Prn_HANDLE,cNorI) //normal
FClose(Prn_HANDLE)
EndIf
If aMo=.T. //imprime
Win_PrintFileRaw(cPrinter,cArq,"")
EndIf
Else
nOrgAlt :=oPrinter:LineHeight()
oPrinter:LineHeight := nOrgAlt * mAltLetra //1.10 aumenta em 10% a linha erro ...

... reference to `HB_FUN_WIN_PRINTERGETDEFAULT'
/usr/bin/ld: .hbmk/linux/gcc/cheques.o:(.data.rel+0x21b0): undefined reference to `HB_FUN_WIN_PRINTFILERAW'
/usr/bin/ld: .hbmk/linux/gcc/clientes.o:(.data.rel+0x13b0): undefined reference to `HB_FUN_HBROWSEEX'
/usr/bin/ld: .hbmk/linux/gcc/clientes.o ...

... meta dados.(?) -> Já desenhado via a classe WIN_PRN().

Criou o arquivo "Pedido.PDF". Ao abri-lo (Chrome),
Não entendi nada. Alxsts
Mas Win_PrintFileRaw() é enviado texto puro para o gerenciador do windows.
Para gerar em PDF use a classe WIN_PRN().


*********************************
Function ...

... FecharImpres
*********************
*
*
set margin to 0
set print off
set printer to
set console on
set Printer off
return .t.


Depois use Win_PrintFileRaw


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

... CHR(10) // Clear Image Buffer in Printer
? "1Y1104000550050FILEBMP"
? "Q"+ StrZero(1,4)
? "E"
Inicia:=.F.
SET ALTERNATE OFF
SET ALTERNATE TO
PrintFileRaw(cPrinter, "ETIQUETA.PRN", "Arquivo de etiquetas")
RETURN NIL
***************************************************


Desde já agradeço