Sayfa basım sırası

[kaspersky]

Yoklama isminde çalışma sayfası içeren excel dosyam var. Yoklamanın önce 4. sonra 2. sonra 3. ve son olarak 1. sayfalarını yazdırmak istiyorum. Nasıl bir scripte ihtiyacım var. Yardımcı olursanız sevinirim.

 

[Ömer]

Merhaba,

Sayfalardan kastınız, yoklama çalışma sayfasının, sayfa içindeki sayfaları sanırım.

Bu şekilde deneyin.

Sub Yazdir()
 
    Dim sayfa(), i As Byte
 
    sayfa = Array(4, 2, 3, 1)
 
    For i = 0 To UBound(sayfa)
        ActiveSheet.PrintOut From:=sayfa(i), To:=sayfa(i)
        Application.Wait Now + TimeValue("00:00:01")
    Next i
 
End Sub

.

 

[kaspersky]

Teşekkür ederim çok makbüle geçti.