Печать формы

[yurkagagarin]

Использую команду PrintForm для печати формы. Но с этой командой нет возможности управлять печатью (задавать принтер, положение листа и так далее) и получать предварительный просмотр перед печатью.
Каким образом можно это сделать?

[EducatedFool]

Каким образом можно это сделать?

думаю, никак

задать принтер можно перед печатью, отдельным макросом
здесь есть пример кода: http://excelvba.ru/code/printers
(см. последний макрос в статье)

насчет положения листа, — не знаю как, — но, наверняка, тоже как-то можно поменять

а вот с предварительным просмотром, — никак не получится
(разве что выводить на печать на виртуальный ПДФ принтер, там просматривать, и оттуда уже печатать на реальный принтер)

[yurkagagarin]

Вот нашёл решение по поводу положения листа.

Private Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
 
Private Const KEYEVENTF_KEYUP = &H2
Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Const VK_SNAPSHOT = &H2C
Private Const VK_MENU = &H12
Private Const VK_LMENU = &HA4
 
Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim wshTemp As Worksheet
    DoEvents
 
    ' Simulate pressing ALT+Printscreen to copy the form window (=picture) to
    ' the clipboard
    keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY, 0
    keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0
    keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0
    keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY + KEYEVENTF_KEYUP, 0
    DoEvents
 
    ' Add a worksheet named Temp
    ThisWorkbook.Worksheets.Add
    ActiveSheet.Name = "Temp"
    Set wshTemp = ThisWorkbook.Worksheets("Temp")
 
    ' Paste the picture, set print orientation to landscape en print it
    With wshTemp
     .Paste
     .PageSetup.Orientation = xlLandscape
     .PrintOut
    End With
 
    ' Delete the worksheet Temp and suppress the not-saved Warning.
    Application.DisplayAlerts = False
    ThisWorkbook.Worksheets("Temp").Delete
    Application.DisplayAlerts = True
End Sub

Взял отсюда.