yazdır makrosunrda çıktı adedi

[cobanoglu]

formum üzerine textbox koysam oraya girdiğim değer kadar sayfa yazdırmak istiyorum ama kodunu yazamadım bi yardımcı olabilirmisiniz

 

[Kemal Demir]

Aşagıdaki kod zannedersem işinizi görür.

sayi=textbox1.value
ActiveWindow.SelectedSheets.PrintOut Copies:=sayi, Collate:=True

 

[AS3434]

Ya da şöyle birşey.

Sub Yaz()
'Excel.web.tr
SAYFA = Application.InputBox("KAÇ NÜSHA YAZDIRMAK İSTERSİNİZ?", "YAZDIR")
If SAYFA = cancel Then Exit Sub
ActiveSheet.PrintOut From:=1, Copies:=SAYFA
End Sub

 

[cobanoglu]

teşekkürler