Butonla Sadece Yazili Olan BÖlÜmÜn Yazdirilmasi

[argo619]

DeĞerlİ ArkadaŞlarim Sayenİzde Exelde Bİr Mesafe Kaydettİm Hepİnİze TeŞekkÜrlerİmİ Sunarim
Yalniz Eklİ Dosyada HazirladiĞim Verİ GİrİŞİ BÖlÜmÜndekİ Yazdir Butonlarina Basilinca İlgİlİ Sayfanin TÜmÜ Yazdiriliyor Yanİ BoŞ Olan BÖlÜmlerde Yaziliyor Oysa Sadece YazilmiŞ Olan Sayfanin Yazdirilmasi Gerekİr
Bİr TÜrlÜ Beceremedİm
Yardimlarinizi Umarim Esİrgemezsİnİz
Saygilarimla

 

[Orion1]

Ekli dosyayı inceleyiniz.
13 sayfa yazdırılıyor.

Sheets("ONAY").Select
ActiveSheet.PageSetup.PrintArea = "A1:BI39"
ActiveSheet.PrintOut Copies:=13, Collate:=True

 

[argo619]

Hocam ellerinize sağlık mükemmelsiniz çok teşekkür ederim sağolun
allah sizin gibileri aksik etmesin
aradığım oydu sağol
hocam size zahmet yazdır butonlarının yanına kopya sayısı butonu ilave etsek acaba bunu yapma imkanı var mı
yani yazdırılacak sayfadan kaç kopya çıkacaksa yine buton sayesinde yaptırabilirmiyiz. önce kopya sayısını belirleyip sonra yazdır butonuyla yazdırsak
hocam çok şey istediğimin farkındayım
eğer mümkünse
ilgi ve alakanıza tekrar teşekkür

 

[Orion1]

Hocam ellerinize sağlık mükemmelsiniz çok teşekkür ederim sağolun
allah sizin gibileri aksik etmesin
aradığım oydu sağol
hocam size zahmet yazdır butonlarının yanına kopya sayısı butonu ilave etsek acaba bunu yapma imkanı var mı
yani yazdırılacak sayfadan kaç kopya çıkacaksa yine buton sayesinde yaptırabilirmiyiz. önce kopya sayısını belirleyip sonra yazdır butonuyla yazdırsak
hocam çok şey istediğimin farkındayım
eğer mümkünse
ilgi ve alakanıza tekrar teşekkür

Ekli dosyayı inceleyiniz.

Private Sub CommandButton13_Click()
Dim adet As String, sayi As Byte
adet = InputBox("Yazdırılacak Miktarı Giriniz..:", "YAZDIRMA")
If Not IsNumeric(adet) Then Exit Sub
sayi = adet
Sheets("ONAY").Select
ActiveSheet.PageSetup.PrintArea = "A1:BI39"
ActiveSheet.PrintOut Copies:=sayi, Collate:=True
End Sub

 

[argo619]

Hocam Elİnİze SaĞlik Çok TeŞekkÜr Ederİm Eksİk Olmayin

 

[Orion1]

Hocam Elİnİze SaĞlik Çok TeŞekkÜr Ederİm Eksİk Olmayin

Rica ederim.
İyi çalışmalar.

 

[baydeniro]

Sayın Evren Gizlen paylaşım için teşekkürler.

 

[Orion1]

Sayın Evren Gizlen paylaşım için teşekkürler.

Rica ederim.
iyi çalışmalar.