yazdırılan sayfa sayısı

[polis-53]

Merhaba arkadaşlar aşağıdaki kodda yazdırılan sayfa adetini nasıl gösterebiliriz.

Sub K20_YAZDIR()
For Each shf In ThisWorkbook.Sheets
If shf.[K20].Value <> "" Then shf.PrintOut
Next
End Sub

 

[hamitcan]

Sayaç koyarak yapabilirsiniz.

Sub K20_YAZDIR()
For Each shf In ThisWorkbook.Sheets
If shf.[K20].Value <> "" Then shf.PrintOut : s = s+1
Next
msgbox s & " kadar sayfa yazdırılmıştır."
End Sub

 

[polis-53]

çok teşekkür ederim.