Yazdırma Butonu

iucfatih

Altın Üye
Katılım
25 Ekim 2018
Mesajlar
80
Beğeniler
11
Excel Vers. ve Dili
2016 Türkçe
#1
Merhabalar. Girdiğim veriler sonrası karşıma gelen sonuç ekranının bir yazdırma butonu koyarak sadece o sonuç ekranının a4 e dökülmesini nasıl sağlayabilirim?

https://we.tl/t-V1dCigJIuq
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
7,120
Beğeniler
107
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
 

iucfatih

Altın Üye
Katılım
25 Ekim 2018
Mesajlar
80
Beğeniler
11
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ı
 

iucfatih

Altın Üye
Katılım
25 Ekim 2018
Mesajlar
80
Beğeniler
11
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
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
7,120
Beğeniler
107
Excel Vers. ve Dili
İş : Ofis 2016 - Türkçe
Ev: Ofis 2016 - Türkçe
#5
Kolay gelsin. Bilmukabele.
 

iucfatih

Altın Üye
Katılım
25 Ekim 2018
Mesajlar
80
Beğeniler
11
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