koşullu yazdırma

[ozkance]

Merhaba şu şekilde yazdırmak istiyorum

commandbutton1'e tıkladığımda A1 hücre değeri; 1 ise sayfa1, 5 ise sayfa2 ve sayfa2, 7 ise sayfa1, sayfa2 ve sayfa3 yazdırılsın istiyorum.

 

[YUSUF44]

Commandbutton1'in click kodlarına ekleyip deneyin:

If [A1] = 1 Then
    Sheets("Sayfa1").Printout
ElseIf [A1] = 5 Then
    Sheets("Sayfa1").Printout
    Sheets("Sayfa2").Printout   
ElseIf [A1] = 7 Then
    Sheets("Sayfa1").Printout
    Sheets("Sayfa2").Printout
    Sheets("Sayfa3").Printout   
End If

 

[veyselemre]

    Select Case [a1].Value
        Case 1
            Sheets("Sayfa1").PrintOut
        Case 5
            Sheets(Array("Sayfa1", "Sayfa2")).PrintOut
        Case 7
            Sheets(Array("Sayfa1", "Sayfa2", "Sayfa3")).PrintOut
    End Select