Arkadaşlar elimde 1 formum var ve bu forma 3 adet buton koyarak istenilen alanları yazdırmak istiyorum Örneğin 1.butona basınca =A1:E36 alanını , 2.butona basınca =B1:F36 vb.. alanları yazdıracak. Bunu nasıl yapabilirim?
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
yazdırma alanı belirleme
- Konbuyu başlatan incsoft
- Başlangıç tarihi
muygun
Özel Üye
- Katılım
- 6 Temmuz 2004
- Mesajlar
- 9,227
- Excel Vers. ve Dili
- Excel-2003 Türkçe
Merhaba;
Boş bir modüle;
Sub alan_yazdır()
Set s1 = Sheets("Sayfa1")
s1.Range("A1:E36").PrintOut
End Sub
Kodlarını yerleştirerek deneyin. (diğer alanlar için aynı makroyu kopyalayıp gerekli alan değişikliğini yapın)
İyi çalışmalar.
Boş bir modüle;
Sub alan_yazdır()
Set s1 = Sheets("Sayfa1")
s1.Range("A1:E36").PrintOut
End Sub
Kodlarını yerleştirerek deneyin. (diğer alanlar için aynı makroyu kopyalayıp gerekli alan değişikliğini yapın)
İyi çalışmalar.
- Katılım
- 1 Mart 2005
- Mesajlar
- 22,239
- Excel Vers. ve Dili
- Win7 Home Basic TR 64 Bit
Ofis-2010-TR 32 Bit
A1:E36 için,
Standart bir modüle aşağıdaki kodları yazın.
Standart bir modüle aşağıdaki kodları yazın.
Kod:
Sub yazdirma_alani59()
'yazdıralacak alan belirleniyor.
ActiveSheet.PageSetup.PrintArea = "A1:E36"
'Yazdırılıyor.
ActiveSheet.PrintOut
End Sub