Yazdır Butonu

[ormann]

Arkadaşlar günaydın yazdır komutunu şu şekilde yaptım:
Sheets("a4").PrintOut From:=1, To:=1 ancak bu koda ilave yapmak istiyorum yine aynı butona bastığımda bana:Kaç sayfa yazdırmak istiyorsunuz diye bir kutucuk olabilirmi ve bu kutucuğa adedi girip evete bastığım zaman girilen adedi yazdırması ve hayıra bastığıda ise yazdırmayı iptal etmesi diye bir seçenek yapılabilir mi? Saygılar

 

[Necdet]

Merhaba,

Dener misiniz?

Sub Yaz()

    Dim SayfaAdedi As Integer
    
    SayfaAdedi = Application.InputBox("Kopya Sayısını Giriniz", "Kopya Sayısı Girişi", 1, Type:=1)
    If Not SayfaAdedi = 0 Then Sheets("a4").PrintOut Copies:=SayfaAdedi
 
End Sub

 

[ormann]

Sayın Nejdet bey çok teşekkür ederim iStediğim şekilde olmuş .Yazdır Butonuna bastığımda ekrana gelen sayfa (UYARI ) sesli olarak gelebilir mi?

 

[Necdet]

Benim sesim çok kötüdür o yüzden ses eklemedim

İsterseniz abartmayalım ne dersiniz?

 

[harziyan]

Zaten o esnada windowsun kendi seslerinden biri çıkıyor bildiğim kadarıyla!

 

[ormann]

Sayın Nejdet bey ekteki örnekteki gibi

 

[unur]

Arkadaşlar bu başlık altında yazmayı uygun buldum. Aktif sayfayı yazdıran komut olacak ancak kaç kopya yazdırması gerektiğini; Örneğin A1 hücresine yazdığımız rakam kadar kopya yazdırmasını istersek olurmu? yardımcı olursanız sevinirim.

 

[harziyan]

Merhabalar;
Bu a1'deki veriye göre,

ActiveSheet.PrintOut From:=1, To:=1, Copies:=[a1]

Bu da size kaç nüsha yazdıracağını sorar,

ActiveSheet.PrintOut From:=1, To:=1, Copies:=InputBox("Kaç nüsha yazdıralım?")

 

[harziyan]

Kusura bakmayın, bu mesaj istemeden oldu!

 

[unur]

Harziyan çok Teşekkürler. Anlamadım ne istemeden oldu?

 

[harziyan]

İkinci mesajım...