View Full Version : codigo vb para imprimir


zehen
22-06-2006, 00:57
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

ApM
22-06-2006, 19:02
experimenta ver este tutorial: http://www.developerfusion.co.uk/show/86/
tem alguns exemplos de código

zehen
27-06-2006, 00:21
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