Question

我创建了一个包含大量信息的长用户表单，我希望用户单击“ print_button”时可以选择打印。

我找到了以下代码：

private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Path = "C:\Users\" & 
    Environ("USERNAME") & "\Desktop\"
    Application.SendKeys "(%{1068})"
    DoEvents
    Workbooks.Add
    ActiveSheet.PasteSpecial Format:="Bitmap"
    ActiveSheet.Range("A1").Select
    ActiveSheet.ExportAsFixedFormat 
    Type:=xlTypePDF, Filename:=Path & Me.Name & ".pdf"
    UserForm1.Hide
    ActiveWorkbook.Close False
    Application.ScreenUpdating = True
End Sub

此代码很好用，并将用户窗体作为图片复制到另一个可以打印的excel

但是，它仅捕捉用户窗体中显示的部分，并且由于我的用户窗体包含滚动条，因此它不会打印其余用户窗体中的所有信息。

是否有一些选项可以在包含滚动条时打印/捕捉整个用户窗体和长页面？

谢谢

将VBA用户表单打印为PDF

0 个答案: