Public Class Form1
Private Printer As New System.Drawing.Printing.PrintDocument
Private t As Integer
-------------------------------------------------------------------
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PrintPreviewControl.Document = Printer
PrintPreviewControl.Rows = 7
PrintPreviewControl.Columns = 1
PrintPreviewControl.Zoom = 1
PrintPreviewControl.Document.DefaultPageSettings.Landscape = True
AddHandler Printer.PrintPage, AddressOf gLDocumentPrintEventArgs
PrintPreviewControl.InvalidatePreview()
End Sub
-------------------------------------------------------------------
Public Sub CreateGraphic(ByVal eg As System.Drawing.Graphics)
For i As Short = 1 To 300
eg.DrawString("aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa", New Font("MS 明朝", 20), Brushes.Black, 10, i * 20)
Next
End Sub
-------------------------------------------------------------------
Public Sub gLDocumentPrintEventArgs(ByVal sender As Object, ByVal e As Printing.PrintPageEventArgs)
t = t + 1
If t = 7 Then
e.HasMorePages = False
Else
e.HasMorePages = True
End If
Call CreateGraphic(e.Graphics)
End Sub
-------------------------------------------------------------------
Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
Select Case e.KeyCode
Case Keys.Down
PrintPreviewControl.AutoScrollOffset = New Point(PrintPreviewControl.AutoScrollOffset.X, PrintPreviewControl.AutoScrollOffset.Y + 10)
Case Keys.Up
PrintPreviewControl.AutoScrollOffset = New Point(PrintPreviewControl.AutoScrollOffset.X, PrintPreviewControl.AutoScrollOffset.Y - 10)
End Select
End Sub
End Class
|