Dário olha um porjeto bom que tenho faça um teste.
Copie o código abaixo cole no bloco de notas e salve como Form1.frm
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 5790
ClientLeft = 60
ClientTop = 345
ClientWidth = 4995
LinkTopic = "Form1"
ScaleHeight = 5790
ScaleWidth = 4995
StartUpPosition = 3 'Windows Default
Begin VB.ComboBox cboImpressora
Height = 315
Left = 255
Style = 2 'Dropdown List
TabIndex = 8
Top = 810
Width = 4470
End
Begin VB.Frame Frame1
Caption = "Local de Impressão"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 225
TabIndex = 5
Top = 0
Width = 4515
Begin VB.OptionButton optTela
Caption = "Tela"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 225
TabIndex = 7
Top = 405
Value = -1 'True
Width = 1140
End
Begin VB.OptionButton optImpressora
Caption = "Impressora"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 2265
TabIndex = 6
Top = 375
Width = 1995
End
End
Begin VB.CommandButton cmdAvanca
Caption = "->"
BeginProperty Font
Name = "Arial"
Size = 26.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 480
Left = 1725
TabIndex = 4
Top = 5235
Width = 1365
End
Begin VB.CommandButton cmdVolta
Caption = "<-"
BeginProperty Font
Name = "Arial"
Size = 26.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 480
Left = 210
TabIndex = 3
Top = 5220
Width = 1365
End
Begin VB.PictureBox Picture1
BackColor = &H00C0C0C0&
Height = 3870
Left = 195
ScaleHeight = 3810
ScaleWidth = 4500
TabIndex = 0
Top = 1260
Width = 4560
Begin VB.VScrollBar VScroll1
Height = 3690
Left = 4080
TabIndex = 2
Top = 60
Width = 315
End
Begin VB.PictureBox Picture2
BackColor = &H00FFFFFF&
Height = 8000
Left = 75
ScaleHeight = 7935
ScaleWidth = 3900
TabIndex = 1
Top = 30
Width = 3960
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim NumeroPagina As Byte
Dim i As Byte
Function carregaImpressoras()
For i = 0 To Printers.Count - 1
cboImpressora.AddItem Printers(i).DeviceName
Next i
If cboImpressora.ListCount > 0 Then cboImpressora.ListIndex = 0
End Function
Function carregaRegistros()
Dim LocalImpressao As Control
Dim Impressoras As Printer
If optTela.Value = True Then 'imprime em tela
Set LocalImpressao = Picture2
Else
Set LocalImpressao = VB.Printer
For Each Impressoras In Printers
Set Printer = Impressoras
If Impressoras.DeviceName = cboImpressora.Text Then Exit For
Next
End If
If optTela.Value = True Then LocalImpressao.Cls
LocalImpressao.Print
LocalImpressao.Print " Página N°: " & NumeroPagina
LocalImpressao.Print
For i = 1 To 30
LocalImpressao.Print " Linha: " & i & " = " & Rnd() ' o rnd e so pra gerar um valor aleatorio
Next i
If optImpressora.Value = True Then Printer.EndDoc
End Function
Private Sub cmdAvanca_Click()
NumeroPagina = NumeroPagina + 1
carregaRegistros
End Sub
Private Sub cmdVolta_Click()
NumeroPagina = NumeroPagina - 1
carregaRegistros
End Sub
Private Sub Form_Load()
Dim i As Byte
Picture2.AutoRedraw = True
VScroll1.Max = 8000
VScroll1.LargeChange = 1000
NumeroPagina = NumeroPagina + 1
carregaRegistros
carregaImpressoras
End Sub
Private Sub VScroll1_Change()
Picture2.Top = -VScroll1.Value
End Sub
