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

rossine escreveu:Concordo, mas veja em um erro que simulei aqui, existem várias funções "internas" do "habrour" que retornam "(0)":

Se não me engano isso é número de linha e não retorno.
E funções em LIB não tem número de linha, por isso zero.

Olá José,


Sugestão:

Erro é pra ser mostrado, não pra ser escondido.
Coloque pra mostrar o conteúdo das variáveis.


Sim, já faço assim.



O detalhe curioso era mostrar ZERO como conteúdo, e não NIL



Concordo, mas veja em um erro que simulei aqui, existem várias funções "internas" do ...

Sugestão:

Erro é pra ser mostrado, não pra ser escondido.
Coloque pra mostrar o conteúdo das variáveis.


STATIC FUNCTION ArgumentList( e )

LOCAL xArg, cArguments := ""

IF ValType( e:Args ) == "A"
FOR EACH xArg IN e:Args
cArguments += [(] + Ltrim( Str( xArg:__EnumIndex() ) ) + [) = Tipo ...

Olá José,

Eu uso o Harbour 3.4 Viktor.

Ocorreu este erro somente 1 vez, pelo que verifiquei.

Vou ver se consigo pegar o erro no Begin ... end begin e tratar ele para ver o que pode ser e tentar chamar a classe novamente pra ver se resolver, mas é muito estranho esse erro ter ocorrido.

Obrigado ...

hbmk2 -find *prn


hbwin.hbc (installed):
win_Prn()
xhb.hbc (installed):
Win32Prn()

Sei lá...
No harbour win_prn()
Na compatibilidade com xharbour Win32Prn()

... o objeto com conteúdo zero.

Vai ser a segunda pessoa com esse problema, o primeiro fui eu.

Se acontecer sempre..... então deve ter uma função win_prn() entrando no lugar da classe.
Veja o que andou trocando.

Coloque hbwin em primeiro lugar na compilação, se é que é harbour ou xharbour, sei lá ...

Olá,

Abaixo um exemplo para simular o erro ocorrido, seria como se a "classe" Win_Prn() não fosse uma "Classe".


*************
function main
*************

local oPrinter, cPrinter := Win_PrinterGetDefault()

cls

? cPrinter

oPrinter := Win_Prn():New( cPrinter )

? hb_IsObject( oPrinter ...

Olá,

Ocorreu esse erro em um cliente e pelo que entendi seria como se a "classe" Win_Prn() não existisse na memória, mas existe, porque
esse erro apareceu somente 1 vez.

Descrição do Erro: Erro BASE /1004 => Método não exportado: NEW

[ 2] NEW(0)
[ 3] MODELOIMPRESS(2977 ...

... 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(), wapi_SetMenu(),
win_printerList ...

Da erro usando desta forma
oPrinter:SetCopies( 3 )
Descrição..........: Message not found

Vindo de: WIN_PRN:ERROR (0)
Vindo de: (b)HBOBJECT (0)
Vindo de: WIN_PRN:MSGNOTFOUND (0)
Vindo de: WIN_PRN:SETCOPIES (0)

Boa tarde.
Estive pesquisando como colocar varias copias para imprimir usando a win32prn ou em harbour win_prn.
Não obtive exito, não obedece alinha abaixo
oPrinter:Copies :=3 //aqui defini a quantidade para testar e nao da certo

Aproveitando, pergunto como pegar a quantidade de copias alteradas na ...

... problema.
Testei aqui, e mandou o arquivo de erro para meu email.
Pq, o problema é o seguinte: vai rodar no Linux ? Como é seu relatório ?
Se usa Win_PRN, no Linux não vai. Se usa ADO, não vai no Linux.
Por isso eu falo para usar HTML, esse é um processo que venho fazendo tem anos, mudando os ...

... undefined reference to `HB_FUN_WIN_PRINTERLIST'
/usr/bin/ld: .hbmk/linux/gcc/clientes.o:(.data.rel+0x4b30): undefined reference to `HB_FUN_WIN_PRN'
/usr/bin/ld: .hbmk/linux/gcc/clientes.o:(.data.rel+0x4b50): undefined reference to `HB_FUN_WIN_PRINTERGETDEFAULT'
/usr/bin/ld: .hbmk/linux/gcc ...

... as novas funções do Harbour(windows) para isso.
Basicamente existe duas formas, TXT ou arquivo 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 ...