Açıklamayı Yazdır
Görüntü formatlı verileri sıralı bir dosyaya yazar.
Yazdır Sözdizimi
| 1 | Yazdır #FileNumber, [Çıktı Listesi] |
Print deyimi 2 argüman içerir:
Dosya numarası: Herhangi bir geçerli dosya numarası.
Çıktı Listesi: İsteğe bağlı. Bir dosyaya yazılacak bir veya daha fazla virgülle ayrılmış sayısal ifade veya dize ifadesi.
Excel VBA Yazdırma İşlevi Örnekleri
| İlk adı | Soy isim | Yaş | Cinsiyet |
| Robert | step | 20 | Erkek |
| Jennifer | Mariscal | 33 | Dişi |
| David | romig | 35 | Erkek |
| karamel | Ingram | 26 | Dişi |
Yukarıdaki resimdeki gibi bir sayfadaki Range(“A1:D5”) dosyasını bir dosyaya çıkarmak için aşağıdaki kodu kullanabilirsiniz.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Alt Yazdır_Örnek()Dize Olarak Dim strFolderDize Olarak Dim strFileDim dlgFolder As FileDialogAralık Olarak KarartmadlgFolder = Application.FileDialog(msoFileDialogFolderPicker) olarak ayarlayındlgFolder.Show = True isestrFolder = dlgFolder.SelectedItems(1)BaşkaAlt ÇıkışBitirSet rng = Aralık("A1:D5")'YazdırstrFile = "Print_Output.txt"PrintRangeToFile strFolder & "\" & strFile, rngAlt BitişSub PrintRangeToFile(strFile As String, rng As Range)Aralık Olarak Satırı Karart, Aralık Olarak HücreDosya Numarasını Tamsayı Olarak KarartınDosyaNumarası = ÜcretsizDosyaÇıktı için strFile'ı #FileNumber Olarak AçınHer satır için rng.RowsHer hücre için satır.HücrelerEğer cell.Column = row.Cells.Count O zaman#DosyaNumarası yazdır, hücreBaşka#DosyaSayısını yazdır, hücre,BitirSonraki hücreSonraki satır#DosyaNumarasını KapatAlt Bitiş |
“Print_Output.txt” dosyasının çıktısı:
| 12345 | Adı Soyadı Yaş CinsiyetRobert Step 20 ErkekJennifer Mariscal 33 KadınDavid Romig 35 ErkekCarmel Ingram 26 Kadın |
