Yazdırma Butonu

[iucfatih]

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]

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:

Sub Makro1()
    ActiveSheet.PageSetup.PrintArea = "$C$4:$C$24"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    ActiveSheet.PageSetup.PrintArea = ""
End Sub

 

[iucfatih]

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:

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]

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:

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]

Kolay gelsin. Bilmukabele.

 

[iucfatih]

Kolay gelsin. Bilmukabele.

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ı?