1. Çalışma Sayfası Yazdırma: Aktif çalışma sayfasını varsayılan ayarlarla yazdırmak için

   ActiveSheet.PrintOut

   komutu kullanılır 2.

Sub YazdirAktifSayfa()
  ActiveSheet.PrintOut
End Sub
Kopyala

2. Tüm Çalışma Sayfalarını veya Belirli Sayfaları Yazdırma: Her sayfayı tek tek yazdırmak için bir döngü kullanılabilir veya

   If

   koşulları ile belirli sayfalar seçilebilir 2.

Sub YazdirTumSayfalar()
  Dim ws As Worksheet
  For Each ws In ThisWorkbook.Worksheets
    ws.PrintOut
  Next ws
End Sub

Sub YazdirBelirliSayfalar()
  Dim ws As Worksheet
  For Each ws In ThisWorkbook.Worksheets
    If ws.Name = "Sayfa1" Or ws.Name = "Sayfa3" Then
      ws.PrintOut
    End If
  Next ws
End Sub
Kopyala

On Error Resume Next

On Error GoTo