sayfaları kuralla yazdırma

[kmlblgn]

Arkadaşlar kusura bakmayın sizin için basit benim için zor iki sorum olacak

Çalışma kitabıma bir yazdırma sayfası yaptım oradan tüm yazdırmalarımı kontrol etmek istiyorum.

1. bazı sayfalar için yazdırma sayfamdaki hücredeki değer kadar kopya almak istiyorum.
ÖRNEK: aa1 hücresinde 8 yazıyorsa D1 adlı sayfadan 8 kopya çıktı alacak

2. bazı sayfaların toplu çıktısını almam gerekiyor.
ÖRNEK: D1 den D45 e kadar sayfalarım var bu sayfaların her birinin aa1 hücresinde 1 yada 0 yazıyor. aa1 hücresinde 1 yazan tüm sayfaların çıktısını tek tuşa basarak almak istiyorum

İki örnekte farklı amaca hizmet ediyor o yüzden ayrı olmalılar.
Yardımcı olacak arkadaşa şimdiden çok teşekkür ediyorum...

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Tek_Yazdir()
 
    If Range("AA1") < 1 Then Exit Sub
 
    On Error Resume Next
    Sheets("" & Range("D1") & "").PrintOut Copies:=Range("AA1")
 
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''
Sub Coklu_Yazdir()
 
    Dim i As Long
 
    On Error Resume Next
    For i = 1 To Cells(Rows.Count, "D").End(xlUp).Row
        If Cells(i, "AA") > 0 Then
            Sheets("" & Cells(i, "D") & "").PrintOut Copies:=Cells(i, "AA")
        End If
    Next i
 
End Sub

Not: Deneme yapmadım.