Question

VB程序打印窗体的问题

想用VB放大打印窗体，具体如下：
我用VB设计了一个诊断报告打印程序，打印方式采用的是窗体打印，由于特定原因，窗体设计的大小是B5纸大小（注：有要求不能设计为A4大小的窗体），现在想将这个B5大小的窗体按A4纸打印出来，就是放大约1.3倍打印，如何实现。
打印控件的代码如下：
Form6.FontName = "宋体"
Form6.PrintForm
请问如何增加代码或做何修改？感之不尽。

Answer 1

大致能实现要求
不会在内存操作图像，用了一个图片框周转了一下
VB code
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 Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Const SRCCOPY = &HCC0020 ' (DWORD) dest = source
Private Sub Command2_Click()
Dim nW As Long, nH As Long
nW = form1.Width / Screen.TwipsPerPixelX
nH = form1.Height / Screen.TwipsPerPixelY
BitBlt Picture1.hDC, 0, 0, nW, nH, GetDC(form11.hwnd), 0, 0, SRCCOPY Printer.ScaleLeft = 0
Printer.CurrentX = 0
Printer.PaintPicture Picture1.Image, 0, 0, Printer.Width, form11.Height * (Printer.Width / form11.Width), 0, 0, form11.Width, form11.Height Printer.EndDoc
End Sub
Private Sub Form_Load()
Picture1.Visible = False Picture1.BorderStyle = 0 Picture1.Width = form11.Width Picture1.Height = form11.Height Picture1.AutoRedraw = True
End Sub