VBPRPSUSER

EPISCOPAL 26/12/2009 16:03:39
#330495
Dim objprint As Object

Set objprint = Printer
objprint.PaperSize = vbPRPSUser <<<<< código de erro 380
objprint.ScaleMode = vbTwips

Estou tentando fazer um tipo de papel definido pelo usuário mas ta dando erro, ja olhei no google e tem muita gente com o mesmo problema ............. mas sem solução .... ALGUEM JA DEPAROU COM ESSE ERRO
EPISCOPAL 26/12/2009 20:30:01
#330506
o pior que aqui só ta funcionando o A3, A4 e A5 qdo mando do DoroPDF ........... no word e wordpad funcionam todos os formatos ... menos no meu programaaaa ..............

o q será???????
EPISCOPAL 13/01/2010 23:10:01
#331833
alguém???
ASHKATCHUP 13/01/2010 23:19:58
#331834
Primeiro, vc precisa setar as outras propriedades


objprint.Height = XXX
objprint.Width = YYY
objprint.PaperSize = vbPRPSUse
objprint.ScaleMode = vbTwips
EPISCOPAL 19/01/2010 17:45:42
#332336
[txt-color=#0000f0]ASHKATCHUP[/txt-color]

objprint.Height = XXX
objprint.Width = YYY
objprint.PaperSize = vbPRPSUse
objprint.ScaleMode = vbTwips

vbPRPUse = 256 >>>> este valor é invalido aki só aceita


Inclusive qdo eu uso vbPRPA4 vbPRPSA3 dá ok ..... mas qdo uso vbPRPSA2 simplismente nao aceita ....


suponhamos se eu digito vbPRPS[txt-color=#e80000]a[/txt-color]4 e dou enter .... automaticamente ele fica vbPRPSA4
se eu digito vbPRPS[txt-color=#e80000]a[/txt-color]3 e dou enter .... automaticamente ele fica vbPRPSA3
se eu digito vbPRPS[txt-color=#e80000]a[/txt-color]2 e dou enter .... ele fica do mesmo jeito ..... o papel A2 ou superior nao funciona e olha que eu ja varri a net e a definição para a2 é vbPRPSA2 etc ....
MARCELO.TREZE 19/01/2010 20:33:42
#332351
tente isto

Printer.PaperSize = vbPRPSUser
Printer.ScaleMode = vbMilimiters
Printer.Height = XXX
Printer.Width = YYY
Printer.Print [Ô] Teste[Ô]
Printer.EndDoc

tente conforme acima
EPISCOPAL 19/01/2010 23:22:23
#332365
MARCELO ........... NAO ADIANTA MESMOOOOO

NAO IMPORTA A POSIÇÃO QUE FICA .......... MAS QDO CHEGA EM PRINTER.PAPERSIZE = vbPRPUser DÁ ERRO

VALOR DA PROPRIEDADE INVALIDO .....




EPISCOPAL 20/01/2010 17:09:51
#332431
DESCOBRI O PROBLEMA ........ A IMPRESORA PADRÃO NAO SUPORTA O FORMATO

Dim objprint As Object
Set objprint = Printer
Set Printer = Printers(0) [ô]aqui minha impressora é o Microsoft Office Document Image Writer

nela aceita todos os formatos de papel ...


ENTÃO TEM DOIS PROBLEMAS
1 - QUAL CÓDIGO QUE EU USO PARA VER OS PAPEIS DISPONIVEIS NA IMPRESSORA SELECIONADA?????
2 - NO WORDPAD IMPRIME EM QUALQUER FORMATO E EM QUALQUER IMPRESSORA MAS MEU PROGRAMA NAO .... PQ????
EPISCOPAL 21/01/2010 10:53:20
#332477
[txt-color=#0000f0][txt-size=1]SOLUÇÃO DOS MEUS PROBLEMAS[/txt-size][/txt-color]


http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=66476&lngWId=1
Tópico encerrado , respostas não são mais permitidas
Voltar