为 Windows 窗体显示打印预览 (Visual Basic)

最新推荐文章于 2023-03-18 22:36:12 发布

原创

最新推荐文章于 2023-03-18 22:36:12 发布 · 813 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#windows #integer #basic #button #function #编程

该示例介绍了如何在Windows应用程序中使用Visual Basic来预览窗体的打印效果，包括需要的PrintDocument和PrintPreviewDialog组件，以及通过Button控件触发打印预览的操作。

此示例预览当前窗体的打印副本。

示例

  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
  Dim memoryImage As Bitmap
  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 PrintDocument1_PrintPage(