İki ayrı sayfayı aynı anda yazdırma

[mars2]

İyi Günler;

Çalışma sayfasında A3 hücresi "TMSG" ise sayfa2 v2 sayfa3 yazdırsın, değilse sadece sayfa2 yazdıran makro nedir?

 

[Ali]

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Range("A3") = "TMSG" Then
Worksheets("Sayfa2").PrintOut
Worksheets("Sayfa3").PrintOut
Else: Worksheets("Sayfa2").PrintOut
End If
End Sub

 

[Seyit Tiken]

Bu kodu bir deneyin.

Private Sub Yazdir_Click()
If Range("a3") ="TMGS" Then
Sheets("Sayfa1").PrintOut
Sheets("Sayfa2").PrintOut
Else
Sheets("Sayfa2").PrintOut
End If
End Sub