Beschrijving afdrukken
Schrijft weergave-geformatteerde gegevens naar een sequentieel bestand.
Syntaxis afdrukken
| 1 | Afdrukken #FileNumber, [OutputList] |
Het Print-statement bevat 2 argumenten:
Bestandsnummer: Elk geldig dossiernummer.
Uitvoerlijst: Optioneel. Een of meer door komma's gescheiden numerieke expressies of tekenreeksexpressies om naar een bestand te schrijven.
Voorbeelden van Excel VBA-afdrukfunctie
| Voornaam | Achternaam | Leeftijd | Geslacht |
| Robert | Stepp | 20 | Mannelijk |
| Jennifer | Mariscal | 33 | Vrouwelijk |
| David | Romig | 35 | Mannelijk |
| Carmel | Ingram | 26 | Vrouwelijk |
Om Range ("A1: D5") in een blad zoals de bovenstaande afbeelding naar een bestand uit te voeren, kunt u de volgende code gebruiken.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Sub Print_Example()Dim strFolder As StringDim strFile As StringDim dlgFolder As FileDialogDim rng als bereikStel dlgFolder = Application.FileDialog (msoFileDialogFolderPicker) inAls dlgFolder.Show = True DanstrFolder = dlgFolder.SelectedItems(1)AndersSluit subStop alsStel rng = Bereik ("A1: D5") in'AfdrukkenstrFile = "Print_Output.txt"PrintRangeToFile strFolder & "\" & strFile, rngEinde subSub PrintRangeToFile(strFile As String, rng As Range)Dim rij als bereik, cel als bereikDim bestandsnummer als geheel getalBestandsnummer = VrijBestandOpen strFile voor uitvoer als #FileNumberVoor elke rij In rng.RijenVoor elke cel In rij. CellenAls cel.Kolom = rij.Cellen.Aantal DanAfdrukken #Bestandsnummer, celAndersPrint #FileNumber, cel,Stop alsVolgende celVolgende rij#Bestandsnummer sluitenEinde sub |
De uitvoer naar het bestand "Print_Output.txt":
| 12345 | Voornaam Achternaam Leeftijd GeslachtRobert Stepp 20 ManJennifer Mariscal 33 VrouwDavid Romig 35 ManCarmel Ingram 26 Vrouw |
