Leírás nyomtatása
A kijelzőn formázott adatokat soros fájlba írja.
Nyomtatási szintaxis
| 1 | Nyomtatás #FileNumber, [OutputList] |
A Print utasítás két érvet tartalmaz:
Ügyirat száma: Bármilyen érvényes fájlszám.
Kimeneti lista: Választható. Egy vagy több vesszővel elválasztott numerikus kifejezés vagy karakterlánc-kifejezés fájlba íráshoz.
Példák az Excel VBA nyomtatási funkciójára
| Keresztnév | Vezetéknév | Kor | Nem |
| Robert | Stepp | 20 | Férfi |
| Jennifer | Mariscal | 33 | Női |
| David | Romig | 35 | Férfi |
| Carmel | Ingram | 26 | Női |
A tartomány („A1: D5”) a fenti képhez hasonló lapon fájlba történő kiadásához használja a következő kódot.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Sub Print_Example ()Dim strFolder karakterlánckéntDim strFile karakterlánckéntDim dlgFolder FileDialog névenDim rng mint tartományÁllítsa be a dlgFolder = Application.FileDialog (msoFileDialogFolderPicker)Ha dlgFolder.Show = Igaz akkorstrFolder = dlgFolder.SelectedItems (1)MásKilépés a SubbólVége HaRng = tartomány beállítása ("A1: D5")'NyomtatásstrFile = "Print_Output.txt"PrintRangeToFile strFolder & "\" & strFile, rngEnd SubSub PrintRangeToFile (strFile mint karakterlánc, rng mint tartomány)Dim sor mint tartomány, cella mint tartományFájlszám halvány egészFileNumber = FreeFileNyissa meg az strFile fájlt #FileNumber -kéntMinden sorhoz rng.SorokMinden egyes cellához SorbanHa cella.Oszlop = sor.Sejtek.Szám#Fájlszám nyomtatása, cellaMásNyomtatás #Fájlszám, cella,Vége HaKövetkező cellaKövetkező sorZárja be a #FileNumber számotEnd Sub |
A „Print_Output.txt” fájl kimenete:
| 12345 | Keresztnév Vezetéknév Kor NemRobert Stepp 20 férfiJennifer Mariscal 33 NőDavid Romig 35 FérfiCarmel Ingram 26 Nő |
