VBA/Excel/Access/Word/Excel/ExecuteExcel4Macro

Application.ExecuteExcel4Macro

   <source lang="vb">

Sub Macro1_Version4()

   Dim St As String
   St = "PAGE.SETUP(, , " & _
                    "1.5, 1.5, 1.5, 1.5" & _
                    ", 0, False, False, False, 1, 1, True, 1, 1,False, , " & _
                    "1, 1" & _
                    ", False)"
   Application.ExecuteExcel4Macro St

End Sub

</source>
   
  

Determining the number of printed pages

   <source lang="vb">

Sub ShowPageCount()

   For Each sht In Worksheets
       sht.Activate
       Pages = ExecuteExcel4Macro("Get.Document(50)")
       Debug.Print Pages
   Next sht

End Sub

</source>