Olá a todos
Janio, no post acima tem o comando Getprinters, que retorna a porta da impressora, isso ja resolveria, pois hoje eu salvo as impressoras em um arquivo, e o usuario preenche se é matricial ou jato de tinta. Ficar perguntando toda vez que vai imprimir não acho legal.
Só que a funcao quando a impressora está instalada em outro computador me retorna por exemplo \\PC7\EPSON.
E aà ?. Tem jeito?
Um abraço
Poka
Win32prn para Iniciantes
Moderador: Moderadores
por Luciano Bonfim » 27 Fev 2008 12:50
procedure Imprime( cArq )
LOCAL oPrinter:=win32prn(),aPrn:=GetPrinters(),cPrinterName,nPrn
If Empty(aPrn)
avi_rep("Não Foi Possivel achar Nenhuma Impressora Instalada, Favor Verificar as Impressoras No Painel de Controle do Windows")
Return
Endif
nPrn:=PrintSetup( @cPrinterName )
oPrinter:New( cPrinterName )
oPrinter:Landscape := formularioLandscape
oPrinter:FormType := 9
oPrinter:Copies := 1
oprinter:SetPrintQuality(1)
if !oPrinter:Create()
avi_rep("Não foi possivel Iniciar a Impressão, Favor Verificar se a Impressora está Ligada")
return
endif
if !oPrinter:StartDoc(nomeRelatorio)
avi_rep("Não foi possivel Iniciar a Impressão, Favor Verificar o Spoll da Impressora")
oPrinter:Destroy()
return
endif
Muito Obrigado,
Luciano Bonfim de Azevedo
www.bonfim.com.br
luciano@bonfim.com.br
www.linkedin.com/in/lucianobonfim
Skype : lucianobonfim
Luciano Bonfim de Azevedo
www.bonfim.com.br
luciano@bonfim.com.br
www.linkedin.com/in/lucianobonfim
Skype : lucianobonfim
-
Luciano Bonfim Usuário NÃvel 3 
- Mensagens: 414
- Data de registro: 23 Ago 2007 09:34
- Cidade/Estado: Rio de Janeiro / São Paulo
- Curtiu: 0 vez
- Mens.Curtidas: 0 vez
por sygecom » 27 Fev 2008 13:38
nPrn:=PrintSetup( @cPrinterName )
Apenas para deixar claro que essa função é da HWGUI.
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
leonardodemachado@hotmail.com
Faça você também sua doação esse fórum é uma lenda viva: http://www.pctoledo.com.br/doacao
xHarbour.org + Hwgui + PostgreSql
leonardodemachado@hotmail.com
Faça você também sua doação esse fórum é uma lenda viva: http://www.pctoledo.com.br/doacao
-
sygecom Usuário NÃvel 7 
- Mensagens: 7017
- Data de registro: 21 Jul 2006 10:12
- Cidade/Estado: Alvorada-RS
- Curtiu: 1 vez
- Mens.Curtidas: 133 vezes
Re: Win32prn para Iniciantes
por sambomb » 26 Nov 2008 15:11
Desculpa por desenterrar o tópico, mas alguem tem uma lista das versões compativeis?
Uso xHarbour 1.1.0 + FwXh 8.02 e o exemplo não compilou....
Uso xHarbour 1.1.0 + FwXh 8.02 e o exemplo não compilou....
Rca Sistemas - Itaocara - RJ
-
sambomb Usuário NÃvel 3 - Mensagens: 250
- Data de registro: 24 Out 2008 16:02
- Cidade/Estado: Itaocara - RJ - Brasil
- Curtiu: 16 vezes
- Mens.Curtidas: 10 vezes
Re: Win32prn para Iniciantes
por sygecom » 27 Nov 2008 18:01
Qual o erro que deu ?
Aqui compilou normal com xharbour 1.1.0
Aqui compilou normal com xharbour 1.1.0
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
leonardodemachado@hotmail.com
Faça você também sua doação esse fórum é uma lenda viva: http://www.pctoledo.com.br/doacao
xHarbour.org + Hwgui + PostgreSql
leonardodemachado@hotmail.com
Faça você também sua doação esse fórum é uma lenda viva: http://www.pctoledo.com.br/doacao
-
sygecom Usuário NÃvel 7 - Mensagens: 7017
- Data de registro: 21 Jul 2006 10:12
- Cidade/Estado: Alvorada-RS
- Curtiu: 1 vez
- Mens.Curtidas: 133 vezes
Re: Win32prn para Iniciantes
por sambomb » 28 Nov 2008 09:52
Simplesmente não apareceu nada... abre o processo mas não faz nada... nem erro deu!
Rca Sistemas - Itaocara - RJ
-
sambomb Usuário NÃvel 3 - Mensagens: 250
- Data de registro: 24 Out 2008 16:02
- Cidade/Estado: Itaocara - RJ - Brasil
- Curtiu: 16 vezes
- Mens.Curtidas: 10 vezes
Re: Win32prn para Iniciantes
por sygecom » 29 Nov 2008 18:46
Olá sambomb,
De qual exemplo você esta se referindo ? foi postado mais de um exemplo de codigo no topico todo, post o que que esta testando.
De qual exemplo você esta se referindo ? foi postado mais de um exemplo de codigo no topico todo, post o que que esta testando.
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
leonardodemachado@hotmail.com
Faça você também sua doação esse fórum é uma lenda viva: http://www.pctoledo.com.br/doacao
xHarbour.org + Hwgui + PostgreSql
leonardodemachado@hotmail.com
Faça você também sua doação esse fórum é uma lenda viva: http://www.pctoledo.com.br/doacao
-
sygecom Usuário NÃvel 7 - Mensagens: 7017
- Data de registro: 21 Jul 2006 10:12
- Cidade/Estado: Alvorada-RS
- Curtiu: 1 vez
- Mens.Curtidas: 133 vezes
Re: Win32prn para Iniciantes
por sambomb » 01 Dez 2008 10:02
sygecom escreveu:Olá sambomb,
De qual exemplo você esta se referindo ? foi postado mais de um exemplo de codigo no topico todo, post o que que esta testando.
O da 1ª página, que foi dito estar sendo atualizado pelo que eu li....
Rca Sistemas - Itaocara - RJ
-
sambomb Usuário NÃvel 3 - Mensagens: 250
- Data de registro: 24 Out 2008 16:02
- Cidade/Estado: Itaocara - RJ - Brasil
- Curtiu: 16 vezes
- Mens.Curtidas: 10 vezes
Re: Win32prn para Iniciantes
por Hasse » 02 Dez 2008 07:39
Bom dia colegas.
O exemplo da 1ª página está devidamente atualizado e funcionando. Foi testado com a versão 1.1.0 do xHarbour. Só não foi testado com a versão 1.2.0, porém acredito que também não haverá qualquer problema.
Como o exemplo é uma rotina totalmente autônoma e não necessita de qualquer outro código externo, quem sabe seria uma boa alternativa compilar o dito em xHarbour puro, entender o seu funcionamento, e depois ir adaptando os módulos de interesse.
Todos os módulos podem ser copiados e colados em qualquer outro prg sem qualquer alteração. Tomar cuidado somente com alguma variável declarada no inÃcio e em tempo de execução.
Estou à disposição para qualquer auxÃlio que se faça necessário.
O exemplo da 1ª página está devidamente atualizado e funcionando. Foi testado com a versão 1.1.0 do xHarbour. Só não foi testado com a versão 1.2.0, porém acredito que também não haverá qualquer problema.
Como o exemplo é uma rotina totalmente autônoma e não necessita de qualquer outro código externo, quem sabe seria uma boa alternativa compilar o dito em xHarbour puro, entender o seu funcionamento, e depois ir adaptando os módulos de interesse.
Todos os módulos podem ser copiados e colados em qualquer outro prg sem qualquer alteração. Tomar cuidado somente com alguma variável declarada no inÃcio e em tempo de execução.
Estou à disposição para qualquer auxÃlio que se faça necessário.
Hasse
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
-
Hasse Usuário NÃvel 4 
- Mensagens: 815
- Data de registro: 19 Out 2004 10:30
- Cidade/Estado: Jaraguá do Sul - SC
- Curtiu: 0 vez
- Mens.Curtidas: 24 vezes
Re: Win32prn para Iniciantes
por sambomb » 04 Dez 2008 07:35
Hasse escreveu:Bom dia colegas.
O exemplo da 1ª página está devidamente atualizado e funcionando. Foi testado com a versão 1.1.0 do xHarbour. Só não foi testado com a versão 1.2.0, porém acredito que também não haverá qualquer problema.
Como o exemplo é uma rotina totalmente autônoma e não necessita de qualquer outro código externo, quem sabe seria uma boa alternativa compilar o dito em xHarbour puro, entender o seu funcionamento, e depois ir adaptando os módulos de interesse.
Todos os módulos podem ser copiados e colados em qualquer outro prg sem qualquer alteração. Tomar cuidado somente com alguma variável declarada no inÃcio e em tempo de execução.
Estou à disposição para qualquer auxÃlio que se faça necessário.
Olá Hasse, a unica coisa que fiz com o exemplo foi adicionar ele a um projeto(no xDev) e compilar, não modifiquei nada nele e pelo que li aqui no tópico imaginei ser alguma incompatibilidade com o xHarbour como as já relatadas.
Rca Sistemas - Itaocara - RJ
-
sambomb Usuário NÃvel 3 - Mensagens: 250
- Data de registro: 24 Out 2008 16:02
- Cidade/Estado: Itaocara - RJ - Brasil
- Curtiu: 16 vezes
- Mens.Curtidas: 10 vezes
Re: Win32prn para Iniciantes
por Hasse » 04 Dez 2008 13:15
Boa tarde.
Experimente compilar o exemplo de forma autônoma, e verifique o seu funcionamento.
Depois adicione a lib FwXh 8.02 e verifique o que acontece, pois pode haver alguma incompatibilidade ainda não relatada com ela.
Experimente compilar o exemplo de forma autônoma, e verifique o seu funcionamento.
Depois adicione a lib FwXh 8.02 e verifique o que acontece, pois pode haver alguma incompatibilidade ainda não relatada com ela.
Hasse
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
-
Hasse Usuário NÃvel 4 - Mensagens: 815
- Data de registro: 19 Out 2004 10:30
- Cidade/Estado: Jaraguá do Sul - SC
- Curtiu: 0 vez
- Mens.Curtidas: 24 vezes
Re: Win32prn para Iniciantes
por sygecom » 05 Dez 2008 17:35
Bom eu não tenho essa versão da Five, mas com a minha versão da five, não da problema nenhum em usar a win32prn. Acredito que seja outra coisa que estaja pegando ai !!!
Em anexo esta o exemplo do forum compilado e funcionando !!!
Em anexo esta o exemplo do forum compilado e funcionando !!!
- Anexos
-
win32prn.zip- (303.34 KiB) Baixado 255 vezes
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
leonardodemachado@hotmail.com
Faça você também sua doação esse fórum é uma lenda viva: http://www.pctoledo.com.br/doacao
xHarbour.org + Hwgui + PostgreSql
leonardodemachado@hotmail.com
Faça você também sua doação esse fórum é uma lenda viva: http://www.pctoledo.com.br/doacao
-
sygecom Usuário NÃvel 7 - Mensagens: 7017
- Data de registro: 21 Jul 2006 10:12
- Cidade/Estado: Alvorada-RS
- Curtiu: 1 vez
- Mens.Curtidas: 133 vezes
Re: Win32prn para Iniciantes
por edegar_metodo » 09 Jan 2009 17:53
Compilei o exemplo abaixo, mas deu erro, alguem pode ajudar?
outra pergunta
como faco para definir o tamanho da letra da mesma forma como no word (digo arial 8), digo pois qnd uso o
setfont(´nome da fonte´,altura da fonte,{mult,larg},,,,), altero a fonte, mas nao o tamanho da linha(ficam os espacos das entrelinhas), ai utilizei o LineHeight(tamanho) e resolveu, mas tenho que usar os 2 comandos e achar o LineHeigth(), tem algum comando especifico no caso dos rtf "\fs16 "
outra pergunta
como faco para definir o tamanho da letra da mesma forma como no word (digo arial 8), digo pois qnd uso o
setfont(´nome da fonte´,altura da fonte,{mult,larg},,,,), altero a fonte, mas nao o tamanho da linha(ficam os espacos das entrelinhas), ai utilizei o LineHeight(tamanho) e resolveu, mas tenho que usar os 2 comandos e achar o LineHeigth(), tem algum comando especifico no caso dos rtf "\fs16 "
- Anexos
-
ERROR.txt- (3.3 KiB) Baixado 144 vezes
-
IMPRIME.PRG- (305 Bytes) Baixado 223 vezes
-
edegar_metodo Usuário NÃvel 1 
- Mensagens: 40
- Data de registro: 19 Ago 2008 18:29
- Cidade/Estado: Colorado - Pr
- Curtiu: 0 vez
- Mens.Curtidas: 0 vez
Re: Win32prn para Iniciantes
por sygecom » 12 Jan 2009 10:34
Olá Edgar,
Tens que passar o caminho completo do "teste.doc" ex:
"C:\MINHA_PASTA\teste.doc"
Tens que passar o caminho completo do "teste.doc" ex:
"C:\MINHA_PASTA\teste.doc"
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
leonardodemachado@hotmail.com
Faça você também sua doação esse fórum é uma lenda viva: http://www.pctoledo.com.br/doacao
xHarbour.org + Hwgui + PostgreSql
leonardodemachado@hotmail.com
Faça você também sua doação esse fórum é uma lenda viva: http://www.pctoledo.com.br/doacao
-
sygecom Usuário NÃvel 7 - Mensagens: 7017
- Data de registro: 21 Jul 2006 10:12
- Cidade/Estado: Alvorada-RS
- Curtiu: 1 vez
- Mens.Curtidas: 133 vezes
Re: Win32prn para Iniciantes
por edegar_metodo » 17 Jan 2009 15:33
sygecom,
desculpe a demora, (pelo agradecimento), mas com certeza valeu, hoje, apos quase desistir (digo pois estou tentando aprender a win32) e estou gostando..rs,, resolvi dar uma olhada no forum...e vi a resposta....e tentei varias opcoes menos a correta....rs...
mais uma vez obrigado..
Edegar
desculpe a demora, (pelo agradecimento), mas com certeza valeu, hoje, apos quase desistir (digo pois estou tentando aprender a win32) e estou gostando..rs,, resolvi dar uma olhada no forum...e vi a resposta....e tentei varias opcoes menos a correta....rs...
mais uma vez obrigado..
Edegar
-
edegar_metodo Usuário NÃvel 1 - Mensagens: 40
- Data de registro: 19 Ago 2008 18:29
- Cidade/Estado: Colorado - Pr
- Curtiu: 0 vez
- Mens.Curtidas: 0 vez
Quem está online
Usuários vendo este fórum: Nenhum usuário registrado online e 7 visitantes

Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
