Dim dic As New Scripting.Dictionary dic.CompareMode = TextCompare
' ;stdf: dic(".oper") = 1 ' t_operand dic(".value") = Me..Value dic(".type") = "n" ' n-, s-, d-
PrintReport 1, dic' 1 ( t_rep) Set dic = Nothing
https://www.sql.ru/forum/1306935/sozdanie-polzovatelskih-pechatnyh-form-iz-access-v-word-gotovyy-variant