Keskustelu: Ohjelmointikysymykset: VB6: Lomakkeen tulostaminen

 Private Declare Function BitBlt Lib "gdi32.dll" Alias "BitBlt" (ByVal hdcDest As IntPtr, ByVal nXDest As Integer, ByVal nYDest As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hdcSrc As IntPtr, ByVal nXSrc As Integer, ByVal nYSrc As Integer, ByVal dwRop As System.Int32) As Long

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim objPrintDocument As New Printing.PrintDocument
        Dim objPrintPreview As New PrintPreviewDialog
        AddHandler objPrintDocument.PrintPage, AddressOf PrintPage

        'Before printing, hide all Buttons

        Dim ctl As Control
        For Each ctl In Me.Controls
            If ctl.GetType.FullName = "System.Windows.Forms.Button" Then
                ctl.Visible = False
            End If
        Next
        'Before printing, set Form.BackColor as White

        Dim FormBackColor As Color = Me.BackColor
        Me.BackColor = System.Drawing.Color.White

        Me.Refresh()
        'Call sub to capture current Form as an image

        CaptureScreen()
        'Printing… it will call sub PrintPage
        objPrintPreview.Document = objPrintDocument
        objPrintPreview.ShowDialog()

        objPrintDocument = Nothing
        objPrintPreview = Nothing

        'After printing, restore settings
        For Each ctl In Me.Controls

            If ctl.GetType.FullName = "System.Windows.Forms.Button" Then
                ctl.Visible = True
            End If
        Next
        Me.BackColor = FormBackColor

    End Sub
    Private Sub CaptureScreen()
        Dim mygraphics As Graphics = Me.CreateGraphics()
        Dim s As Size = Me.Size

        memoryImage = New Bitmap(s.Width, s.Height, mygraphics)
        Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage)
        Dim dc1 As IntPtr = mygraphics.GetHdc
        Dim dc2 As IntPtr = memoryGraphics.GetHdc

        BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, dc1, 0, 0, 13369376)
        mygraphics.ReleaseHdc(dc1)
        memoryGraphics.ReleaseHdc(dc2)

    End Sub
    Private Sub PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)

        e.Graphics.DrawImage(memoryImage, 0, 0)

    End Sub

Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports Microsoft.VisualBasic.PowerPacks.Printing

Public Partial Class MainForm

   Public Sub New()
      Me.InitializeComponent()
      Me.KeyPreview = True
   End Sub

   Sub MainFormKeyUp(sender As Object, e As KeyEventArgs)
      If e.KeyCode = Keys.PrintScreen And e.Control Then
         Me.button1.Focus
         PrintMe
      End If
   End Sub

   Sub Button1Click(sender As Object, e As EventArgs)
      PrintMe
   End Sub

   Sub PrintMe()

      Dim ctl As Control
      Dim btns(1, 0) As Object
      Dim i As Integer = -1

      For Each ctl In Me.Controls
         If TypeOf(ctl) Is Button Then
            i += 1
            ReDim Preserve btns(1, i)
            btns(0, i) = ctl
            btns(1, i) = ctl.Top
            ctl.Top = Me.Height
         End If
      Next

      Dim FormBackColor As Color = Me.BackColor
      Me.BackColor = System.Drawing.Color.White
      Me.Refresh

      Dim PrintForm1 As New PrintForm
      PrintForm1.Form = Me
      PrintForm1.DocumentName = "Test"
      PrintForm1.PrintAction = _
      Printing.PrintAction.PrintToPreview
      PrintForm1.Print()

      Me.BackColor = FormBackColor

      If i > -1 Then
         For j As Integer = 0 To i
            btns(0, j).Top = btns(1, j)
         Next
      End If

   End Sub

End Class