Moderador: Moderadores
microvolution escreveu:funciona mesmo sem ter fisicamente impressora matricial (lx 300/810) instalada
SET PRINTER TO ("CLI.PRN")
SET PRINTER TO ( "TEMP\" + CLI + ".PRN" )
cTmpFile := MyTempFile( "PRN" )
SET PRINTER TO ( cTmpFIle )
...
fErase( cTmpFile )
SET PRINTER TO ( cPath + cFileName + ".prn" )
USE ( cPath + cFileName )
SET INDEX TO ( cPath + cFileName )
x = &( variável1 + variável 2 + variável3 )
cARQUIVO := "&CLI..PRN"
ImprimeRaw(cARQUIVO)
microvolution escreveu:Essa, tá difÃcil né?
cArq:=CLI+".TXT" //aqui vamos juntar (somar) o conteúdo de CLI + ".TXT", então se CLI é igual 0003, o resultado será 0003.txt
SET PRINTER TO (cArq)
SET DEVICE TO PRINT
...
...
SET PRINTER TO
SET DEVICE TO SCREEN
cDefaultPrinter:= WIN_PRINTERGETDEFAULT()
WIN_PRINTFILERAW(cDefaultPrinter, cArq)
?'antes do del cli'
wait
? '&CLI..prn' *** 0001.PRN
? &CLI *** 1
? 'cli.prn' *** cli.prn
? CLI *** 0001
wait
// hb_run ('del &CLI..PRN') // NÃO EXCLUI
ferase("&CLI..PRN") // não exclui
ferase("0001.PRN") ************* SÓ EXCLUI DESTA FORMA, e, está fica muito limita, preciso da macro substituição.
?'após del CLI'
wait
A extensão .PRN (abreviação de PRINTER) é um padrão usado pela opção Imprimir para arquivo. Sua codificação pode variar dependendo do programa que o gerar. Pode ser relatórios, fotos, e outros tipos de arquivos, assim, ao abri-lo em um editor ele pode se apresentar esdrúxulo, pois depende da forma que ele foi gerado.microvolution escreveu:1ª - qual a diferença mesmo do arquivo .PRN e .TXT?
Um arquivo .TXT que contém comandos para impressoras compatÃveis com o modo RAW (comandos ESC/POS), esses comandos não serão entendidos pela função Win32Prn(). A função Win32Prn() imprime diretamente no Spooler do Windows, e envia a impressora após o comando :EndDoc().microvolution escreveu:2ª - no caso de um arquivo .PRN ou .TXT que foi gerado pelo SET PRINTER TO [...] para impressão tanto para HB_RUN ("TYPE...") e WIN_PRINTFILERAW(), esta dúvida aqui é: COMO FAÇO para usar este arquivo e criar "braço a braço" as linhas novamente de impressão para WIN32PRN?
Sim. Embora há no fórum exemplos de como você pode carregar em memória um arquivo .TXT com comandos ESC/POS, remover esses comandos e imprimir com Win32Prn(), reescrever suas funções é o caminho inclusive porque você já está com a mão na massa da migração, então na minha opinião esse é o melhor caminho.microvolution escreveu:Ou terei, que redesenhá-lo linha por linha dos @prow, traduzindo para WIN32PRN?
Usuários vendo este fórum: Nenhum usuário registrado online e 4 visitantes