DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sayın Seyit Tiken 1. mesaja eklediğim dosyaya dediklerinizi Vba ile uyarlayıp ekleyebilirmisiniz.Teşekkür eder,saygılar sunarım.Anladığım kadarıyla söylüyorum : Yazdırma Alanlarını 1'den fazla butonla tanımlayabilirsiniz. Yada aralıkları tanımlayıpta yazdırabilirsiniz.
Sub Düğme1_Tıklat()
[a1:e20].PrintOut
End Sub
Sub yazdır()
s = InputBox("Yazdırılacak Aralık Girin, a1:e20 gibi")
If s = IsNothing Then Exit Sub
Range(s).PrintOut
End Sub
Tam anlamasamda parantez içindeki değerlerle oynayarak istediğim gibi yazdırdım.Sayın Korhan Ayhan;
Üstteki mesajda belirttiğim boş sütunlar ile kısmi GİZLE ile çözdüm.Fakat "Yazdır" dediğimizde baskı ön izleme-kenar boşluğu-alt kısmı her zaman "18,6" gelmekte,yani sayfanın yarısı boş oluyor.Sanırım bir değişiklik yapılmalı.Beceremedim.