merhaba,
bir diğer ek bilgi olarak da isterseniz aşağıdaki gibi bir kısa kod ile de işlemi uygulayabilirsiniz.
Sub sayfayaz()
Sheets("Sayfa3").PageSetup.PrintArea = "C10:F28"
Sheets("Sayfa3").PrintOut Copies:=1
End Sub
iyi çalışmalar.
saygılar.
Herkes, kendisinin AR-GE'cisidir...
Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Son Düzenleme: 06/02/2014, 13:09, Düzenleyen: atoz112.