önce 1 3 5 .. sonra 2 4 6 gibi yazdırma

[alucard]

arkadaşlar merhaba

elimde 200 sayfalık bie excel tablosu var ben bunu yazdırcam ama arkalı onlu yazdırmak istiyom

önce 1 3 5 .. gibi yazdırabilirmim
tabi daha sonra da 2 4 6 .. yazdırmam lazım

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:10467a7d3d]Sub yazdir()
For a = 1 To 2
For b = a To 200 Step 2
ActiveSheet.PrintOut From:=b, To:=b
Next: Next
End Sub
[/vb:1:10467a7d3d]

Not:öncelikle daha az sayıda sayfa ile deneyin. Bunun içinde 200 sayısını örneğin 10 yapın. Fakat yazıcıya bu kadar çok verinin çok hızlı gönderilmesi kilitlenmeye neden olabilir.