Clipper On Line • Ver Tópico - Impressao com PrWin

Impressao com PrWin

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

 

Impressao com PrWin

Mensagempor porter » 03 Abr 2017 14:38

olá pessoal,
Estou usando o PrWin para impressão, no caso de várias impressoras instaladas,
o PrWin coloca as impressoras em uma ordem, por exemplo a HP seria 1, MP-4200 TH seria a 2 e assim por diante,
gostaria que na rotina abaixo, seguisse a mesma ordem das impressoras que aparecem no PrWin para pegar o
numero correto da impressora que tendo como parâmetro o nome de uma impressora, mas eu não estou
conseguindo saber qual é o critério usado por PrWin para por
as impressoras em sequência.

Function NumeroPrinter(nomeimpressora,numero_da_impressora)
Local i, aPNomes := {}
Local aPrn := GetPrinters( .t. )
If Empty( aPrn )
Alert( "Nenhuma impressora Instalada !" )
Return ( cPrinter )
Endif
For i=1 To Len( aPrn )
AaDd( aPNomes , aPrn[i,1] )
if UPPER(ALLTRIM((nomeimpressora))) = UPPER(ALLTRIM(aPrn[i,1]))
numero_da_impressora = i ; exit
endif
Next
Return(numero_da_impressora)

Harbour 3.2
porter
Usuário Nível 5

Usuário Nível 5
 
Mensagens: 1024
Data de registro: 10 Dez 2009 15:44
Cidade/Estado: OLIMPIA-SP
Curtiu: 3 vezes
Mens.Curtidas: 23 vezes



Retornar para Harbour

Quem está online

Usuários vendo este fórum: Google [Bot] e 8 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!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro