Преглед садржаја
Одштампај опис
Записује податке у формату приказа у секвенцијалну датотеку.
Штампање Синтакса
| 1 | Штампај #Број датотеке, [ОутпутЛист] |
Наредба Принт садржи 2 аргумента:
Број датотеке: Било који важећи број датотеке.
ОутпутЛист: Опционо. Један или више нумеричких израза раздвојених зарезима или низова за писање у датотеку.
Примери Екцел ВБА функције штампања
| Име | Презиме | Старост | Пол |
| Роберт | Степп | 20 | Мушки |
| Јеннифер | Марисцал | 33 | Женско |
| Давид | Ромиг | 35 | Мушки |
| Цармел | Инграм | 26 | Женско |
За излаз Ранге (“А1: Д5”) на листу попут горње слике у датотеку, можете користити следећи код.
| 1234567891011121314151617181920212223242526272829303132333435363738 | Подштампај_пример ()Дим стрФолдер Ас СтрингДим стрФиле Ас СтрингЗатамните длгФолдер као ФилеДиалогДим рнг Ас РангеПостави длгФолдер = Апплицатион.ФилеДиалог (мсоФилеДиалогФолдерПицкер)Ако је длгФолдер.Схов = ТачнострФолдер = длгФолдер.СелецтедИтемс (1)ИначеЕкит СубКрај АкоПостави рнг = опсег ("А1: Д5")'ШтампајстрФиле = "Принт_Оутпут.ткт"ПринтРангеТоФиле стрФолдер & "\" & стрФиле, рнгЕнд СубСуб ПринтРангеТоФиле (стрФиле као низ, рнг као опсег)Затамни ред као опсег, ћелија као опсегДим ФилеНумбер Ас ИнтегерФилеНумбер = ФрееФилеОтворите стрФиле за излаз као #ФилеНумберЗа сваки ред У рнг.РовсЗа сваку ћелију у реду.ћелијеАко је целл.Цолумн = ров.Целлс.Цоунт ЗатимОдштампај #Број датотеке, ћелијаИначеОдштампај #Број датотеке, ћелија,Крај АкоСледећа ћелијаСледећи редЗатворите #Број датотекеЕнд Суб |
Излаз у датотеку „Принт_Оутпут.ткт“:
| 12345 | Име Презиме Старост СполРоберт Степп 20 мушкиЈеннифер Марисцал 33 ЖенскиДавид Ромиг 35 мушкоЦармел Инграм 26 Женски |
