每个打印按钮,前面加上这种代码,如
Dim r As Row = Tables("纸张设置表").currente.form.page.LeftMargin = r("左边距")e.form.page.RightMargin = r("右边距")e.form.page.BottomMargin = r("下边距")e.form.page.TopMargin = r("上边距")
细节自己调整。