- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
Arkadaşlar merhaba;
Sub Resim1_Tıkla()
Sayfa38.PageSetup.PrintArea = "$A$1:$I$42"
Sayfa38.PrintOut
Sheets("sonuc").Select
End Sub
Yukarıdaki kod ile sayfayı yazdırıyorum. Ancak aynı sayfadan iki adet çıktı almak için her seferinde tekrar tıklıyorum. Yapmak istediğim şey yukarıdaki koda "SONUC" isimli sayfaya dönmeden önce aynı sayfayı ikinci kez yazdıracak bir ilave yapmak. Yardımlarınızı bekliyor saygılar sunuyorum.
Sub Resim1_Tıkla()
Sayfa38.PageSetup.PrintArea = "$A$1:$I$42"
Sayfa38.PrintOut
Sheets("sonuc").Select
End Sub
Yukarıdaki kod ile sayfayı yazdırıyorum. Ancak aynı sayfadan iki adet çıktı almak için her seferinde tekrar tıklıyorum. Yapmak istediğim şey yukarıdaki koda "SONUC" isimli sayfaya dönmeden önce aynı sayfayı ikinci kez yazdıracak bir ilave yapmak. Yardımlarınızı bekliyor saygılar sunuyorum.