• FORUMU MOBİL UYGULAMADAN TAKİP EDİN

    Forumu isteyen üyelerimiz Tapatalk (Harici bir hizmet) üzerinden mobil uygulamadan takip edebilirler.
    iOS için : https://itunes.apple.com/app/id307880732?mt=8
    Android için : https://play.google.com/store/apps/details?id=com.quoord.tapatalkpro.activity
    adreslerinden indirebilirsiniz.

    Bir iki haftaya da foruma özel kendi uygulamamız yayında olacak.
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

Yazdırma Butonu

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
6,890
Beğeniler
45
Excel Vers. ve Dili
İş : Ofis 2016 - Türkçe
Ev: Ofis 2016 - Türkçe
#2
Aşağıdaki kodu makro kaydet yoluyla elde ettim. bir modüle kopyalayıp deneyiniz. Kodlar önce C4:C24 alanını yazdırma alanı olarak belirleyip yazdırıyor sonra da yazdırma alanını iptal ediyor:

Kod:
Sub Makro1()
    ActiveSheet.PageSetup.PrintArea = "$C$4:$C$24"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    ActiveSheet.PageSetup.PrintArea = ""
End Sub
 
Katılım
25 Ekim 2018
Mesajlar
41
Beğeniler
8
Excel Vers. ve Dili
2016 Türkçe
#3
Aşağıdaki kodu makro kaydet yoluyla elde ettim. bir modüle kopyalayıp deneyiniz. Kodlar önce C4:C24 alanını yazdırma alanı olarak belirleyip yazdırıyor sonra da yazdırma alanını iptal ediyor:

Kod:
Sub Makro1()
    ActiveSheet.PageSetup.PrintArea = "$C$4:$C$24"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    ActiveSheet.PageSetup.PrintArea = ""
End Sub
hocam çok teşekkür ederim. Peki sadece o C4:C25 'in içindekileri yazdıramazmı? o kutuda birsürü yazı olacak, 5 10 sayfalık bir yazı olacakda o bakımdan sadece o hücreyi yazdırması yetmiyor. içindekileri yazdırmalı
 
Katılım
25 Ekim 2018
Mesajlar
41
Beğeniler
8
Excel Vers. ve Dili
2016 Türkçe
#4
Aşağıdaki kodu makro kaydet yoluyla elde ettim. bir modüle kopyalayıp deneyiniz. Kodlar önce C4:C24 alanını yazdırma alanı olarak belirleyip yazdırıyor sonra da yazdırma alanını iptal ediyor:

Kod:
Sub Makro1()
    ActiveSheet.PageSetup.PrintArea = "$C$4:$C$24"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    ActiveSheet.PageSetup.PrintArea = ""
End Sub
gerçi orayı A4 biçiminde yapsam daha iyi olacak, o zaman sorun kalkar, Çok teşekkür ederim hocam allah işinizi rast getirsin
 
Katılım
25 Ekim 2018
Mesajlar
41
Beğeniler
8
Excel Vers. ve Dili
2016 Türkçe
#6
hocam son birşey daha soracağım. https://we.tl/t-dWWkX8li27 pdf yi bu şekilde boş sayfaları kaydetmemesi için ne yapabiliriz? Nasıl bir yol izlemeliyim? o kutunun boyutunu gelecek olan yazıya göre kendisi otomatik ayarlayamazmı? Yada sadece içindeki metni pdf ' e aktaramazmı?
 
Üst