Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: yesilyurtlu - 25 Temmuz 2010, 19:38:37

Başlık: [Çözüldü] Sayfaları Toplu Yazdırma
Gönderen: yesilyurtlu - 25 Temmuz 2010, 19:38:37

Evren Abi
11 sayfam var 11. sayfa hariç diğer sayfaları userformda bir düğme ile yazırabilir miyim ?

Başlık: Ynt: Toplu yazdırma
Gönderen: Orion1 - 25 Temmuz 2010, 20:25:14

ilk 10 sayfanın A1:E10 aralığını yazdırır. 8)

Kod: [Seç]

Dim i As Byte
For i = 1 To 10
    Sheets(i).PageSetup.PrintArea = "A1:E10"
    Sheets(i).PrintOut
Next

Başlık: Ynt: Toplu yazdırma
Gönderen: yesilyurtlu - 26 Temmuz 2010, 09:32:28

Evren Abi Teşekkür Ederim :begendim

Başlık: Ynt: Toplu yazdırma
Gönderen: Orion1 - 26 Temmuz 2010, 12:20:46

Alıntı yapılan: yesilyurtlu - 26 Temmuz 2010, 09:32:28

Evren Abi Teşekkür Ederim :begendim

Rica ederim. 8)