1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

codigo vb para imprimir

Discussão em 'Programação' iniciada por zehen, 21 de Junho de 2006. (Respostas: 2; Visualizações: 3980)

  1. ola pessoal

    Fiz um pequeno programa para calcular orçamentos mais rapido. Utilizei o visual basic 6
    Funciona lindamente para o objectivo pretendido, mas ficava melhor se pudesse imprimir a informaçao visualizada.
    Alguem sabe qual o codigo para imprimir o form????

    o programa funciona assim: x € * 20% = y €

    x € * 20 % = y € estas formulas aparecem mais vezes

    y €
    pretendia imprimir esta informação
     
    Última edição: 28 de Junho de 2006
  2. ApM

    ApM Power Member

  3. codigo vb imprimir

    Experimentei este codigo, mas da-me "erro 482 em tempo de ejecução"
    Alguem sabe o que modificar?

    Private Sub Command2_Click()
    Dim TotalPages As Integer
    Dim PageCount As String
    ' Specifies the text position to print
    Printer.CurrentX = 100 ..................................... depuração
    Printer.CurrentY = 100
    Printer.Print "This appears at the top of the page"
    ' Specifies a line width and location
    Printer.DrawWidth = 3
    Printer.Line (100, 100)-(10000, 100)
    Printer.Line (100, 350)-(10000, 350)
    TotalPages = Printer.Page
    ' Specifies where to draw a circle
    Printer.Circle (2000, 3500), 450
    Printer.CurrentX = 2750
    Printer.CurrentY = 3500
    Printer.Print "This is a circle. Whee!"
    ' Specifies where to print the page count
    Printer.CurrentX = 1000
    Printer.CurrentY = 400
    PageCount = "TotalPages = " & Str$(TotalPages)
    Printer.Print PageCount
    Printer.EndDoc
    End Sub
     

Partilhar esta Página