-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Yazdırma Alanında Kalan Görsellerin Yazdırılmaması
- Konbuyu başlatan baydeniro
- Başlangıç tarihi
- Katılım
- 15 Mart 2005
- Mesajlar
- 43,741
- Excel Vers. ve Dili
- Microsoft 365 Tr-En 64 Bit
Nesnelerin özellikler bölümünde Nesneyi Yazdır seçeneği vardır. Onu pasif yaparsanız sorununuz çözülür.
- Katılım
- 23 Ağustos 2005
- Mesajlar
- 4,652
- Excel Vers. ve Dili
- Excel : 2010
Nesneler çoksa, aşağıdaki kodu kullanabilirsiniz.
Kod:
Sub yazdır()
ActiveWorkbook.DisplayDrawingObjects = xlPlaceholders
ActiveSheet.PrintOut
ActiveWorkbook.DisplayDrawingObjects = xlAll
End SubKorhan Ayhan üstadım çok teşekkür ediyorum. Sağlıcakla kalın
Üstadım çok teşekkür ederim ilginize. Kodu aşağıdaki gibi uyguladım ama görseller "Print Preview" kapsamında kaldı. Neyi yanlış yapmış olabilirim acaba !
Sub yazdir()
ActiveWorkbook.DisplayDrawingObjects = xlPlaceholders
ActiveSheet.PrintPreview
ActiveWorkbook.DisplayDrawingObjects = xlAll
End Sub
- Katılım
- 23 Ağustos 2005
- Mesajlar
- 4,652
- Excel Vers. ve Dili
- Excel : 2010
Sizin farketmeniz için; iki kod arasındaki fark,
üstad haklısınız. "ActiveSheet.PrintPreview " kısmını ben ekledim. Şu an yazıcı çıktısı alamadığım için kodu orjinal haliyle test edemedim.
şunu kastetmiştim. Ön görüntüde görseller gözüküyor. Aynı şekilde görseller yazıcı çıktısına da gider mi acaba ?
- Katılım
- 23 Ağustos 2005
- Mesajlar
- 4,652
- Excel Vers. ve Dili
- Excel : 2010
Sayfadaki tüm görselleri gizler > sayfayı yazdırır ve tekrar görselleri gösterir.
teşekkürler üstad, yazıcıya eriştiğimde ilk fırsatta deneyeceğim. sağlıcakla kalın
- Katılım
- 15 Mart 2005
- Mesajlar
- 43,741
- Excel Vers. ve Dili
- Microsoft 365 Tr-En 64 Bit
Üstad Ayın ilk haftası benim için yoğun geçiyor. Dün ve bugün o yoğun günlerden..
Gece geç saatlere kadar çalışınca kafayı dağıtmak için foruma girmiştim. Boş geçmeyelim dedim..
Gece geç saatlere kadar çalışınca kafayı dağıtmak için foruma girmiştim. Boş geçmeyelim dedim..