Yazdırma

[aoc]

Slm,

Düğmeye tıkladığımda J7 1 den 22 ye kadar 1 er artarak değişecek. Her değişimde A4 e print olacak. Kodu nasıl olacak ? N7 değişmeyecek.

Teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:e8440aad44]Sub yaz()
If [j7] = 22 Then Exit Sub
[j7] = [j7] + 1
ActiveSheet.PrintOut
End Sub
[/vb:1:e8440aad44]

 

[aoc]

yazdırma

Levent Bey,

1 tıklama ile 22 sayfanın yazılması gerekiyor.


Tşk.

 

[Levent Menteşoğlu]

Bu durumda aşağıdaki gibi deneyin.

[vb:1:9604c9e504]Sub yaz()
for a=1 to 22
[j7]=a
ActiveSheet.PrintOut
next
End Sub
[/vb:1:9604c9e504]