1. Çalışma Sayfası Yazdırma:

   ActiveSheet.PrintOut

   komutu ile aktif çalışma sayfası varsayılan ayarlarla yazdırılır 4.

Sub YazdirAktifSayfa()
  ActiveSheet.PrintOut
End Sub
Kopyala

2. Metin Dosyasına Yazdırma:

   Open

   ve

   Write

   komutları kullanılarak veri bir metin dosyasına yazdırılabilir 12.

Sub VBA_Print_to_a_text_file()
  Dim strFile_Path As String
  strFile_Path = "C:temptest.txt" ' Dosya yolunu değiştir
  Open strFile_Path For Output As #1
  Write #1, "Bu benim örnek metnim"
  Close #1
End Sub
Kopyala