func getprinters() em harbour

[renato miranda]

amigos, bom dia

ate criei um topico para isso, mas como to lendo TUDO e vi que vcs falam sobre impressao, olha a minha situacao: uso hbprinter e ao mandar imprimir no windows vista ou 7, TRAVA meu aplicativo - enm qualquer micro, e´ bom explicar !

aparece aquela tela esbranquiçada e o aplicativo deixa de funcionar !

to fazendo alguma besteira ? parece que o programa tenta criar um arquivo (o documeto a imprimir) e nao consegue e ai´ da´ pau !

alguem passou por isso ?

grato !

[Itamar M. Lins Jr.]

Ola!
Já tentou aplicar privilégio de admin ao arquivo ?
Outra coisa importante é perguntar no forum oficial da Minigui também, caso não tenha feito...

Saudações,
Itamar M. Lins Jr.

[braz]

Itamar

Eu tentei compilar meu sistema com a funcao que vc postou mas deu varios erros, voce poderia postar as outras funcoes tambem que vc nao postou, obrigado.

[Itamar M. Lins Jr.]

Ola!
Quais os erros?
Está usando Harbour... ?

Saudações,
Itamar M. Lins Jr.

[braz]

Ola!
Quais os erros?
Está usando Harbour... ?

Saudações,
Itamar M. Lins Jr.

Eu to usando Xharbour fio, ou estou na seção errada? (

Os erros são provenientes das funcoes que tem sua rotina e vc não colocou a disposição.
grato

Abrçs

[Itamar M. Lins Jr.]

Se você poder colocar um pequeno pedaço do seu sistema onde ocorre o erro ou dúvida fica melhor para nós respondermos.

Os erros são provenientes das funcoes que tem sua rotina e vc não colocou a disposição.
grato

Novamente se você não informar como irei saber ?
Quais são as funções que não coloquei a disposição ?

Saudações,
Itamar M. Lins Jr.

[braz]

Tem várias formas.
Mas vou colocar uma que uso:

Código: Selecionar todos

*********************************
Function PrintWinPrn(cArq,cPrint)
*********************************
*
*
Local oPrn, aPrn:=GetPrinters(), n := 0
if empty(aPrn)
MsgInfo('Não há impressoras instaladas')
return .f.
endif
If cPrint == Nil
cPrint := GetDefaultPrinter()
EndIf

oPrn := win_prn():New(cPrint)
oPrn :LandScape := .f.
oPrn :FormType := FORM_A4
oPrn :Copies := 1
oPrn:CharSet(255)
oPrn:setfont('Courier New',,12,,,,255)

if !oPrn:Create()
MsgInfo("Não foi criado documento")
return nil
EndIf
if !oPrn:startDoc("Imprimindo Documento")
MsgInfo("Erro na Impressora")
return nil
EndIf

HB_CDPSelect("PT850")
setprc(5,0)
cText := memoread(cArq) 
nLinh := mlcount(cText)
For n := 1 to nLinh
oPrn:TextOut(ansitooem(memoline(cText,,n)),.t.)
Next
oPrn:EndDoc()

HB_CDPSelect( "PTISO") 

Return .t.

Dessa forma podemos trabalhar com Gregos e Troianos, se bem que na Grecia o bixo tá pegando...

Saudações,
Itamar M. Lins Jr.

.

Esta rotina serve pra xharb ?

Se sim, voce precisa disponibilizar as funcoes para compilar (HB_CDPSelect("PT850"),HB_CDPSelect( "PTISO") , oPrn:startDoc("Imprimindo Documento").

:%

[Itamar M. Lins Jr.]

São funções do Harbour.
Para o xHarbour elas possuem outro nome, por exemplo.

Código: Selecionar todos

 HB_SETCODEPAGE() -> HB_CDPSELECT()
 WIN32PRN() -> WIN_PRN()

Sugiro verificar a possibilidade de atualizar para o Harbour.
Caso queira ficar usando o xHarbour verifique aqui no forum as mesmas funções, com outros nomes, pois não lembro de todas.
Procure no forum a classe WIN32PRN que é nome que tem a classe WIN_PRN no Harbour.

Saudações,
Itamar M. Lins Jr.

[ronnywdson]

Boa tarde

Desculpe-me por ressuscitar um post antigo, mas estou passando pelo mesmo problema relatado aqui.
Linkei as lib´s xHB.lib e a hbWin.lib, mas o erro abaixo é apresentado. Nele a função ANSITOOEM não é encontrada.
Unresolved external '_HB_FUN_ANSITOOEM' referenced from C:\TESTE\OBJ\TESTE.OBJ
Como proceder?
Obrigado pela atenção

Ronny Wdson

[Toledo]

Ronny, troque ANSITOOEM() por HB_ANSITOOEM().

Abraços,

[ronnywdson]

Olha

Muito obrigado heim... acertou na mosca
Valeu pela força.

[ronnywdson]

Começo esse POST pedindo desculpas por não ter perguntado isso na mensagem anterior.
Quando eu uso #define FORM_A4 9 e #define FORM_LT 1 eu estou defindo meu papel como sendo A4, é isso?
Se for, no meu caso eu preciso que o relatório seja impresso usando um formulário pronto da empresa (formulário contínuo e usando somente a metade da folha, pois ele já vem em duas vias e picotado no meio).
Como configurar para que no final do relatório ele pare na posição certa para o início da próxima impressão, tem jeito?
Obrigado novamente pela atenção
Att
Ronny Wdson

[Toledo]

Quando eu uso #define FORM_A4 9 e #define FORM_LT 1 eu estou defindo meu papel como sendo A4, é isso?

Mais ou menos... o tamanho do papel é definido no comando oPrn :FormType. Nos comandos acima você está apenas criando as variáveis com o valor do formulário A4 (FORM_A4) e do formulário continuo completo (FORM_LT).

(formulário contínuo e usando somente a metade da folha, pois ele já vem em duas vias e picotado no meio)

O tamanho padrão do formulário contínuo é 11 polegadas, então neste caso no lugar de usar FORM_A4 você deveria trocar por:

Código: Selecionar todos

oPrn :FormType  := WIN_DMPAPER_USER
oPrn :PaperLength := 5.5*25.4*10
oPrn :PaperWidth := 8.5*25.4*10

Abraços,

[ronnywdson]

Boa noite

Segui suas recomendações e coloquei o trecho postado no meu código.
Mas apresenta a mensagem: Error BASE/1003 Vari vel nÆo existe: WIN_DMPAPER_USER
O que falta para funcionar?

Obrigado mais uma vez
Ronny Wdson

[Toledo]

Ronny, coloque o comando abaixo na primeira linha deste seu PRG:

Código: Selecionar todos

#include "hbwin.ch"

Abraços,