vb picture控件打印

Question

条件：
1 将Picture控件里加载的控件（如Label）打印出来
2 Image控件也可以，重点是里面加载的控件及控件上的Caption或Text

Answer 1

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As LongPrivate Const SRCCOPY = &HCC0020 ' (DWORD) dest = sourcePrivate Sub Command1_Click()
    Picture2.Width = Picture1.Width
    Picture2.Height = Picture1.Height
    Picture2.AutoRedraw = True
    BitBlt Picture2.hDC, 0, 0, Picture1.Width / Screen.TwipsPerPixelX, Picture1.Height / Screen.TwipsPerPixelY, Picture1.hDC, 0, 0, SRCCOPY
    Picture2.AutoRedraw = False
    Picture2.Refresh
    Printer.PaintPicture Picture2.Image, 1000, 1000
    Printer.EndDoc
End Sub

Answer 2

在打印机上打印picture1的图片和控件，打印到以（1000，1000）为左上角的位置。
Picture2可以隐藏起来。

Answer 3

这上面有源码。http://www.egooglet.com/static_html/200511121320237648admin.html

Answer 4

我现在用Printer方法打印，怎么设置打印图形大小与打印纸张大小一致？
我现在的方法是，先调用打印对话框，然后设置打印纸张为A4（或其他），但是，
打印出来不和比例， 不能打印全图，我只有把图形比例调小打印，才能实现。
但不同的纸型打印比例得不同设置，怎么能做个通用的设置呢？
现在问题是：
也就是说，打印图形不变，但使图形进行自动缩放，自动符合所选纸型大小，满页打印？

Answer 5

VB 万能查询控件的用法和原代码,特别简单,请到http://hexun.com/jysse查看

Answer 6

VB   万能查询控件的用法和原代码,特别简单,请到http://hexun.com/jysse查看