Aynı sayfadan üç ayrı yazdırma seçeneği

[ynmcan]

Merhaba arkadaşlar;
Aynı sayfa içinde bulunan üç ayrı yazdırma alanını yazdırırken sorun yaşıyorum. Yardımcı olursanız sevinirim.
Örnek dosyam ekte

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton1_Click()

If CheckBox1.Value = True Then
   ActiveSheet.PageSetup.PrintArea = "alan1"
   [B][COLOR="Red"] ActiveSheet.PageSetup.Orientation = xlLandscape[/COLOR][/B]
   ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
 
 
 
 
           If CheckBox2.Value = True Then
              ActiveSheet.PageSetup.PrintArea = "alan2"
                  [B][COLOR="Red"]ActiveSheet.PageSetup.Orientation = xlLandscape[/COLOR][/B]

              ActiveWindow.SelectedSheets.PrintOut Copies:=1
           End If
 
  
  
  
  
                      If CheckBox3.Value = True Then
                         ActiveSheet.PageSetup.PrintArea = "alan3"
                    [B][COLOR="Red"]ActiveSheet.PageSetup.Orientation = xlPortrait 'Dikey yazdırmak=.Orientation = xlPortrait[/COLOR][/B]

                         ActiveWindow.SelectedSheets.PrintOut Copies:=1
                      End If


End Sub

 

[ynmcan]

Sn Evren bey, Yardımlarınız için teşekkür ederim. Yazıcımın kartuşu bitiği için şu anda deneyemiyeceğim. Ancak bir sorun çıkakacağını sanmıyorum. Hayırlı akşamlar.

 

[Orion1]

Sn Evren bey, Yardımlarınız için teşekkür ederim. Yazıcımın kartuşu bitiği için şu anda deneyemiyeceğim. Ancak bir sorun çıkakacağını sanmıyorum. Hayırlı akşamlar.

Rica ederim.
İyi geceler.