VBA Print Statement
Print Description
Writes display-formatted data to a sequential file.
Print Syntax
|
1 |
<strong>Print </strong>#FileNumber, [OutputList] |
The Print statement contains 2 arguments:
FileNumber: Any valid file number.
OutputList: Optional. One or more comma-delimited numeric expressions or string expressions to write to a file.
Examples of Excel VBA Print Function
| First Name | Last Name | Age | Gender |
| Robert | Stepp | 20 | Male |
| Jennifer | Mariscal | 33 | Female |
| David | Romig | 35 | Male |
| Carmel | Ingram | 26 | Female |
To output Range(“A1:D5”) in a sheet like the above picture to a file, you can use the following code.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 |
Sub Print_Example() Dim strFolder As String Dim strFile As String Dim dlgFolder As FileDialog Dim rng As Range Set dlgFolder = Application.FileDialog(msoFileDialogFolderPicker) If dlgFolder.Show = True Then strFolder = dlgFolder.SelectedItems(1) Else Exit Sub End If Set rng = Range("A1:D5") 'Print strFile = "Print_Output.txt" PrintRangeToFile strFolder & "\" & strFile, rng End Sub Sub PrintRangeToFile(strFile As String, rng As Range) Dim row As Range, cell As Range Dim FileNumber As Integer FileNumber = FreeFile Open strFile For Output As #FileNumber For Each row In rng.Rows For Each cell In row.Cells If cell.Column = row.Cells.Count Then Print #FileNumber, cell Else Print #FileNumber, cell, End If Next cell Next row Close #FileNumber End Sub |
The output to the file “Print_Output.txt”:
|
1 2 3 4 5 |
First Name Last Name Age Gender Robert Stepp 20 Male Jennifer Mariscal 33 Female David Romig 35 Male Carmel Ingram 26 Female |
VBA Coding Made Easy
Stop searching for VBA code online. Learn more about AutoMacro - A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!
Learn More!
