примерно так:
собираемся печатать второй лист, все страницы, в Книге2 в 5 экзеплярах,
без показа кнопки предварительного просмотра
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
Sub testPrint()
Dim xld As Dialog
Dim curWrk As Workbook
Dim wrk As Workbook
Dim wrkSheet As Worksheet
Dim result
Set curWrk = Application.ActiveWorkbook
Set wrk = Workbooks("Книга2")
wrk.Activate
Set wrkSheet = wrk.ActiveSheet
wrk.Worksheets( 2 ).Activate
Set xld = Application.Dialogs(xlDialogPrint)
result = xld.Show(Arg1:= 1 , Arg4:= 5 , Arg6:=False, Arg12:= 2 )
If result Then
MsgBox "Печать проведена!"
End If
wrkSheet.Activate
curWrk.Activate
End Sub
параметры в данном случае взять из описания xl4-макрофункции print?
