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

BOM dia

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

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

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

BOM dia

aproveitaram o papel rs

as 2 sao pela mesma forma

gero um txt e envio para a impressora lx-350 USB

imprimindo direto nao aceita lá (nao sei o motivo se o problema e´o WIN as vezes para de funcionar nos clientes ai informo que ela é usb ai imprime
depois de um tempo tipo e volta a ...

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

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

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

... nOpc ] )
ENDIF

RETURN lOk

/*
STATIC FUNCTION PrintRaw( cFileTxt, cReportName )

LOCAL cPrinter := ""

hb_Default( @cReportName, "win_PrintFileRaw" )
cPrinter := Win_PrintDlgDc( @cPrinter,,, )
IF ! Empty( cPrinter )
Win_PrintFileRaw( cPrinter, cFileTxt, cReportName )
ENDIF

RETURN ...

Boa tarde, instalei a Versão HMG.3.5
As Versão atuais são:
A HMG-IDE ver 1.2a?
MiniGuiHMG 3.4.4?
O Harbour 3.2.0dev (r2011030937)?

Eu usava Harbour 3.2.0dev (r1703241902) Normal.

Quando compilo com a nova versão passou a dar estes erros, como posso resolver?

hbmk2: Harbour: Compilando m¢dulos ...

... viewtopic.php?f=4&t=18709

Leia esse tópico, pq tem provavelmente seu problema nele resolvido.


cDefaultPrinter := WIN_PRINTERGETDEFAULT()
WIN_PRINTFILERAW( cDefaultPrinter, Prnfile.txt )


mas esse não consigo dá erro, É segredo o erro ? cadê para a gente ver !


Saudações,
Itamar M. Lins Jr.

Boa tarde, obrigado pela atenção

Tentei compilar (utilizo HMG 2010.06.20) e não deu para utilizar o PrintFileRaw()

O Win_PrintFile_Raw() funciona, mas esse não consigo dá erro, pelo visto falta algum arquivo.

Poderia me dar, se possível, mais alguma instrução?

Corrigindo: pesquisando aqui ...

if Imp_PORTA == 2 && USB/REDE
RSTENV(REIMPRI)
c_codped := cc_codped
IMP_PEDVEN() // imprime em arquivo .PRN
IMPRIMI_RAW(REL_TELA)
endif


/// aqui entra na rotira para imprimir o pedido em usb / rede modo raw



tmp := "tm" + substr(time(),4,2) + substr(time(),7,2) + "pv" && impressao de ...