Sayfa1 ve Sayfa2 Hariç Tüm Çalışma Kitabını Yazdırma.

[cqners]

Merhaba;


Çalışma kitabımda toplam 200 adet sayfa var ve hepsini yazıdırmak zaman alıyor. Sayfa1 ve Sayfa2 hariç hepsini yazdırmam mümkünmü ?

Formda Aşağıdaki örneği buldum. İşime yaradı ve kendime göre uyarlıyamadım.

Yardımlarınız için tşekkürler.

Sub Makro2()

For i = 1 To Sheets.Count
yeniden:
If i = Sheets.Count Then GoTo son:
Sheets(i).PrintOut Copies:=1, Collate:=True
a = MsgBox(i & ". Sayfa yazdırılıyor." & i + 1 & ". Sayfanın Yazdırılmasına geçilsin mi?", vbYesNo)
i = i + 1
If a = 7 Or i > Sheets.Count Then Exit Sub
If a = 6 Then GoTo yeniden:
Next
son:
MsgBox "Bütün Sayfalar Yazdırıldı", vbInformation
Sheets(i).PrintOut Copies:=1, Collate:=True
End
End Sub

 

[N.Ziya Hiçdurmaz]

For i = 3 To Sheets.Count olarak değiştirin.

 

[cqners]

Göstermiş olduğunuz ilgi için Teşekkürler.

İki problemle karşılaştım.

1 - Onay vermeden tüm saysafarı otomatik yazdırması,
2 - Sayfa atlatarak yazdırmakta. 3.5.7 bu şekilde devam ediyor.

 

[Orion1]

Merhaba.
Aşağıdaki kodları denermisiniz.

Sub sayfalari_yazdir()
For i = 3 To Sheets.Count
If MsgBox("[ " & Sheets(i).Name & " ] Yazdırılsınmı ?", vbYesNo) = vbNo Then GoTo atla
Sheets(i).PrintOut Copies:=1, Collate:=True
atla:
Next
MsgBox "Bütün Sayfalar Yazdırıldı", vbInformation
End Sub

 

[N.Ziya Hiçdurmaz]

Bu şekil sayfa3 ten itibaren bir,bir atlayarak diğer sayfaları onay isteyerek yazdırır.
Sub Makro2()
For i = 3 To Sheets.Count
yeniden:
If i = Sheets.Count Then GoTo son:
Sheets(i).PrintOut Copies:=1, Collate:=True
a = MsgBox(i & ". Sayfa yazdırılıyor." & i + 1 & ". Sayfanın Yazdırılmasına geçilsin mi?", vbYesNo)
i = i + 1
If a = 7 Or i > Sheets.Count Then Exit Sub
If a = 6 Then GoTo yeniden:
Next
son:
MsgBox "Bütün Sayfalar Yazdırıldı", vbInformation
Sheets(i).PrintOut Copies:=1, Collate:=True
End
End Sub