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