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

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

octopus1

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

阅读量778

点赞数

分类专栏： .net技术文章标签： windows integer basic button function 编程

本文链接：https://blog.youkuaiyun.com/octopus1/article/details/1731768

版权

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

示例

  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

最低0.47元/天解锁文章