- Katılım
- 11 Ocak 2008
- Mesajlar
- 1,395
- Excel Vers. ve Dili
- Office 365 (Türkçe)
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Güzel olmuş emeğine sağlık. Bir de yazdırıalack alan otomatikman belirlenebilsin ve yazdır butonu olsun muthiş olur.Arkadaşım zannetme usta falan değilim. Bu sitenin sayesinde bu kadar oldu bir incelermisin
MErhabaGüzel olmuş emeğine sağlık. Bir de yazdırıalack alan otomatikman belirlenebilsin ve yazdır butonu olsun muthiş olur.
Buton ile yazdırılacak. Eğer mümkünse ön izleme butonu da olursa harika olur.MErhaba
Otomatik derken nasıl olacak. Belirlediğiniz yadırma alanı buton ilemi yazdırılacak.
MerhabaButon ile yazdırılacak. Eğer mümkünse ön izleme butonu da olursa harika olur.
Sub Baskı()
ActiveWindow.SelectedSheets.PrintPreview
End Sub
Sub Yazdır()
ActiveWindow.SelectedSheets.PrintOut
End Sub
V.Basicte verdiğiniz kodları sayfa1 e ekledim, ancak değişiklik olmadı.Merhaba
Kod:Sub Baskı() ActiveWindow.SelectedSheets.PrintPreview End Sub
Kod:Sub Yazdır() ActiveWindow.SelectedSheets.PrintOut End Sub
MerhabaV.Basicte verdiğiniz kodları sayfa1 e ekledim, ancak değişiklik olmadı.
Boş module her iki koduda ekledim. Butona atamayı yapamadım.Merhaba
Boş bir modüle ekleyin ve butona atayın.