|
|
Postada em 29/07/2006 11:32 hs
Bom dia. Estou com um problema de impressão no Win Xp usando o printer.Width e printer.Heigth para definir tamanhos de papéis personzalizados. Ele sempre pula o tamanho da folha que está definido na impressora (carta, A4) ou seja não aceita as configurações de tamanho e altura. Se alguém tiver uma solução para me passar agradeceria. |
|
|
|
|
|
|
|
Postada em 30/07/2006 14:22 hs
Dá uma olhada neste link... talvez ajude: t+ |
|
|
|
Ama
|
UBERLÂNDIA
MG - BRASIL
|
|
Postada em 30/07/2006 14:26 hs
On Error GoTo TrataErro
Dim x As Printer
Dim nHdc As Long
For Each x In Printers
If x.Orientation = vbPRORPortrait Then
' Configura impressora como padrão do sistema.
Set Printer = x
' Encerra a procura de uma impressora.
Exit For
End If
Next
Printer.ScaleMode = vbTwips
Printer.PaperSize = vbPRPSA4
HorMargem = 1134 + ((11907 - RicTxt.Width) / 2)
VerMargem = 2268 + ((16839.9 - Printer.ScaleHeight) / 2)
With Printer
.CurrentX = HorMargem
.CurrentY = VerMargem
End With
Printer.Copies = CLng(txtTabela(3))
Printer.ColorMode = vbPRCMColor
Printer.Print RicTxt.Text
Printer.EndDoc
Exit Sub
tai a rotina de impressão que uso com winxp prof sp2 |
|
|
|
|
|
Postada em 31/07/2006 11:50 hs
Sergio, Nem li o Link do Ghost e a resposta do outro usuario aqui acima... mas ja vou te passar o que tenho por experiencia... No winXP varios drivers de impressao não aceitam tamanho definido dessa forma, informando altura e largura... Geralmente vc tem que ir nas configurações da impressora, mandar adicionar um novo formato de papel com as suas configurações, e depois mandar imprimir nesse novo formato... é assim que eu fiz em alguns clientes já...
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
 "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
