IMPRESSAO

USUARIO.EXCLUIDOS 05/09/2007 14:46:22
#234297
To com problema para imprimir um picturebox (container) com todos os objetos q estão nele no tamanho de uma folha A4... eu fiz isso aki mas não sei se tah certo, pq quero imprimir os objetos dentro dele...

   Private Sub Form_Load()
    Dim Largura As Single
    Dim Altura As Single
    Dim Cima!, Esquerda!
 
    Largura = ScaleX(210, vbMillimeters, vbTwips)
    Altura = ScaleX(297, vbMillimeters, vbTwips)
    frmImprimir.Height = Altura
    frmImprimir.Width = Largura
    Cima = (Altura / 14)
    Esquerda = (Largura / 2) - (Picture2.Width / 2)
    Picture1.Move 0, 0, Largura, Altura
    Picture2.Move Esquerda, Cima
    Printer.FontName = "Arial"
    Printer.FontSize = "14"
    Printer.ForeColor = QBColor(0)
    Printer.CurrentX = 0
    Printer.CurrentY = 0
    Printer.Orientation = vbPRORPortrait
    Printer.PaperSize = vbPRPSA4
    Printer.Print Picture1
    Printer.EndDoc
End Sub


é assim msm?
SERGIO.CARDOSO 05/09/2007 15:05:45
#234304 Resposta escolhida

http://support.microsoft.com/kb/230502/pt-br

... nao sei se isso que voce quer ...
Tópico encerrado , respostas não são mais permitidas
Voltar