Распечатать VBA Userform в формате PDF - PullRequest
0 голосов
/ 04 марта 2019

Я создал длинную пользовательскую форму, которая содержит много информации, и мне хотелось, чтобы у пользователя была возможность печатать, если он нажимает «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, который может быть напечатан

Однако, он привязывает только показанную часть пользовательской формы, и, поскольку моя пользовательская форма содержит полосу прокрутки, он нераспечатать всю информацию, которая находится в оставшейся пользовательской форме.

Есть ли какая-либо опция, позволяющая распечатать / привязать всю пользовательскую форму и длинную страницу, когда она содержит полосу прокрутки?

спасибо

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...