Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		Me.Size = New System.Drawing.Size(830, 1200)
		' MsgBox(Err.Description & "   " & Me.Size.Height.ToString)
		MsgBox(Me.VerticalScroll.Value.ToString)
		Me.VScroll = True

		PageSetupDialog1.PageSettings = New System.Drawing.Printing.PageSettings

		' Initialize dialog's PrinterSettings property to hold user
		' set printer settings.
		PageSetupDialog1.PrinterSettings = New System.Drawing.Printing.PrinterSettings
		PrintForm1.PrinterSettings = New Drawing.Printing.PrinterSettings
		PrintForm1.PrinterSettings.Copies = 1
		PrintForm1.PrinterSettings.DefaultPageSettings.Margins.Left = 10
		PrintForm1.PrinterSettings.DefaultPageSettings.Margins.Right = 1
		PrintForm1.PrinterSettings.DefaultPageSettings.Margins.Top = 1
		PrintForm1.PrinterSettings.DefaultPageSettings.Margins.Bottom = 5
		' PrintForm1.Print(Me, PrintForm1.PrintOption.Scrollable)
		PrintForm1.Print(Me, PowerPacks.Printing.PrintForm.PrintOption.Scrollable)

		' MsgBox("BBBBB   " & Err.Description)
	End Sub