Erro na impressao Sem Preview do HarbourBoleto...

[Cezar]

Ola,

Qdo mando imprimir o boleto direto sem o Preview da o seguinte Erro!!

Erro no script desta pagina

Linha 229
Caractere 1
Erro 'dialogArguments.__IE_PrintType'
Codigo 0
URL res://C:\WINDOWS\system32\shdoclc.dll/preview.dlg

Parece que deve ser algum problema inicialização da impressora, mas ja fuçei no codigo do HmtlPrint.prg mas ainda não descobri.

Voces já tiverem este problema e tiverem alguma dica, agradeço.
v_cez@yahoo.com.br

[BHS]

oi colega

eu comecei a testar o harbourboleto e não obtive esse erro. Qual a versão do IE vc esta usando?
o meu é o 7.0 gerou diretamente na impressora sem problemas.
Vc ja tentou fazer o teste em outra maquina ?

ate

BHS

[Cezar]

Ola,

A versão é 6.0 o que vem no Xp SP2.

Estou usando estes parametros no exemplo hbol.prg para fazer a impressão direta sem o abrir no IE para visualização.

lPrint := .T. //oIni:ReadBool("CAB", "lPrint", .F.)
lPreview := .F. //oIni:ReadBool("CAB", "lPreview", .F.)
lPromptPrint := .t. //oIni:ReadBool("CAB", "lPromptPrint", .F.)

A mensagem de erro correta é :
Erro 'dialogArguments.__IE_PrintType' é nulo ou não é um objeto

Quando mando imprimir a primeira vez , dá o erro !!
Sem sair do programa, mando imprimir novamente e ai me pede a confirmação para impressão corretamente. ( Obs. as vezes falha !! )

Deve ter alguma logica no HmtlPrint.prg que não está inicializando a impressora....

Grato
v_cez@yahoo.com.br

[BHS]

Cezar

eu mandei dessa maneira:

Print=.t.
Preview=.f.
Promptprint=.f.

Veja bem, eu deixei o PromptPrint igual a falso, pois se vai imprimir direto não ha motivo de chamar a caixa de dialogo de impressão. Faça o teste e depois retorne aqui.

valeu

BHS

[Cezar]

Ola!

BHS,

No www.microsoft.com.br menciona que ha problemas com a função ExecWB() no IE6, não chequei a ler detalhadamente.

De qualquer forma baixei o IE7 e funcionou !!

Grato,
v_cez@yahoo.com.br

[Cezar]

Boa tarde,

Preciso desenhar um boleto com um Layout diferente do padrão do harbourboleto BOL.HTM

Tentei usar o Word 2003, mas ele gera uma extensão .MHT ?? e internamente parece ser mais complexo, por exemplo o "IMAGELNK" do BOL.HTM aparece como "IMAGEDATA", no IE7 le normal, mas no IE6 não sei.

Que ferramenta poderia gerar o Layout do BOL.HTM mais padrão ??

Grato,
v_cez@yahoo.com.br

[alaminojunior]

Ressuscitando o tópico ...

Esse código está diferente na versão que tenho aqui.

Código: Selecionar todos

Print=.t.
Preview=.f.
Promptprint=.f.

Veja bem, eu deixei o PromptPrint igual a falso, pois se vai imprimir direto não ha motivo de chamar a caixa de dialogo de impressão. Faça o teste e depois retorne aqui.

Na versão que tenho:
lPreview - como podemos deduzir, se .T. abre na tela com o IE, se .F. envia para a impressora
lPromptPrint - se .T. abre a janela para seleção de impressora
cPrinter - a princípio seria a impressora na qual gostaríamos que fosse impresso o boleto, porém: Imprime sempre na impressora padrão.

[janio]

Eu sempre deixo pra abrir no navegador padrão da maquina, dae a pessoa imprime de la. O chrome tbm tem a opção de transformar o html em pdf... muito util!

Janio

[alaminojunior]

Concordo Jânio.
Mas se o usuário for imprimir os boletos, será sempre um trabalho a mais.
Enviei um email para os desenvolvedores, e vamos ver se respondem.

[alaminojunior]

Problema aparentemente resolvido.
Após alguns testes, coloquei o Millisec(1000) para dar uma freada no processamento.
Pelo que entendi, esta classe altera a impressora padrão momentaneamente. E por algum motivo, não estava tendo tempo suficiente para enviar na impressora escolhida.

Código: Selecionar todos

      // Imprime ou Nao
      IF ::lPrintHtml
        WB:ExecWB(OLECMDID_PRINT, If(::lPromptPrint, OLECMDEXECOPT_PROMPTUSER, LECMDEXECOPT_DONTPROMPTUSER) )
      ENDIF
   ELSE
      RETURN .F.
   ENDIF
   millisec(1000)