1.Seçenek bir butona yazdıracağınız sayfaları belirterek kod yazıp yapabilirsiniz.
Kod:
Private Sub CommandButton1_Click()
Sheets("Sayfa1").Select
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Sheets("Sayfa3").Select
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub