BİRDEN FAZLA SAYFADA AYNI YAZDIRMA ALANINI SAPTAMA

[gokay]

BÝRDEN FAZLA SAYFADA AYNI YAZDIRMA ALANINI SAPTAMA

30 ayrı sayfada aynı yazdırma alanını tüm sayfalara nasıl taşıyabilirim. Sayfalarda Aynı boyutta tablo var fakat sadece tablo içeriği değişiyor. Ben her sayfada sadece bu tabloyu yazdırmak istiyorum. bu uygulamayı tek tek seçmek ve yazdırma alanı saptamaktansa hüçreleri tümünü şeçip yapmak mümkünmü bana bu konuda yardım edebilirseniz sevinirim. ilginize teşekkürler

 

[cako]

[vb:1:5bdd62d8f6]For i = 1 To Worksheets.Count
Sheets(i).PageSetup.PrintArea = "$A$1:$B$5"
Next i
[/vb:1:5bdd62d8f6]

 

[gokay]

merhaba cako

bu visual basic kodunu excelde tam olarak nereye uygulamam gerektiği konusunda yardıma ihtiyacım var. bana bu formülü nereye yazmam gerektiğini tarif edebilirmisiniz. ilginize teşekkürler

 

[cako]

excel sayfası açıkken
ALT-F11
Çıkan ekranda ThisWorkbook iki kez tıkla
Sağdaki pencerenin üstünde General yazan kısmı Workbook olarak değiştir. Onun sağındaki pencerede de Open yazar
bu durumda büyük pencerede

Private Sub Workbook_Open()

End Sub

yazan yerin arasına kodları koy.

 

[gokay]

MERHABA CAKO,
ALT+F11 İLE DEDİÐİN YOLU UYGULADIM AMA OLMADI. SAYFANIN BİRİNE COMMAND BUTTON EKLEDİM VE YAZDIÐIN FORMÜLÜ İÇİNE YAZDIM ÞUAN İÇİN İSTEDİÐİME ULAÞTIM. VERDİÐİNİZ BİLGİLER İÇİN TEÞEKKÜRLER.