İlginizi Çekebilir
  1. Ana Sayfa
  2. Excel
  3. Excel Makro (Vba) ile Yazdırma İşlemleri PrintOut Kullanımı

Excel Makro (Vba) ile Yazdırma İşlemleri PrintOut Kullanımı

Bu yazımızda Excel ile hazırlamış olduğunuz Çalışma Kitabı, Sayfalar, Seçilen Hücreler veya grafikleri Vba kodları ile yazdırma işlemi nasıl yapılır örnekleri ile açıklamaya çalışacağım.
Yazdırma işlemi için kullanacağımız fonksiyon .PrintOut şimdi örneklerle Excelde Vba kodları ile yazdırma işlemi nasıl yapılır inceleyelim
Vba kodu ile Çalışma kitabını yazdırma

Function Yazdir()
      ActiveWorkbook.PrintOut
End Function

Vba kodu ile Aktif çalışma sayfasını yazdırma

Function Yazdir()
       ActiveSheet.PrintOut
End Function

Vba kodu ile tüm çalışma sayfasını yazdırma

Function Yazdir()
       WorkSheets.PrintOut
End Function

Vba kodu ile Seçilen çalışma sayfasını yazdırma

Function Yazdir()
       Sheets("Sayfa1").PrintOut
End Function

Vba kodu ile Birden fazla çalışma sayfasını yazdırma

Function Yazdir()
       Sheets(Array("Sayfa1","Sayfa3","Sayfa4")).PrintOut
End Function

Vba kodu ile seçilen alanı yazdırma

Function Yazdir()
       Selection.PrintOut
End Function

Vba kodu ile seçilen hücre aralığını yazdırma

Function Yazdir()
      Range("A1:D5").PrintOut
End Function

Vba kodu ile excel grafiğini yazdırma

Function Yazdir()
     Sheets("Sayfa1").ChartObjects("Grafik_ismi").Chart.PrintOut
End Function

Vba kodu ile Sayfadaki tüm grafikleri yazdırma

Function Yazdir()
    Dim Grafikler As Object
Set Grafikler = Sheets("Sayfa1").ChartObjects
For Each Grafik In Grafikler
    Grafik.Chart.PrintOut
Next
End Function

Vba kodu ile Çalışma Kitabındaki tüm grafikleri yazdırma

Function Yazdir()
    Dim Grafikler As Object
	For Each Sayfa In Sheets
		Set Grafikler = Sayfa.ChartObjects
		For Each Grafik In Grafikler
			Grafik.Chart.PrintOut
		Next
		Set Grafikler = Nothing
	Next
End Function

Vba kodu ile Çalışma Sayfasındaki Belli Sayfaların Yazdırılması

Function Yazdir()
'Sayfa 1 den 3 e kadar olanlar yazılacak diğerleri yazdırılmayacak
    Worksheets("Sayfa1").PrintOut From:=1, To:=3
End Function
Yorum Yap
Subscribe
Bildir
guest

This site uses Akismet to reduce spam. Learn how your comment data is processed.

3 Yorum
Inline Feedbacks
View all comments
serkan

mrb lar
istediğim sayfaları tek pdf de sayf sayfa kaydetmesi nasıl

Tarık

sayfa 1 den 3 adet, sayfa 2 den 4 adet yazdırmak için ne yapılabilir?

Bilişmci

Teşekkürler çok güzel ve faydalı bilgiler