With Tables("订单").PrintInfo
.LeftMargin = 10 '设置左边距
.RightMargin = 10 '设置右边距
.TopMargin = 20 '设置上边距
.BottomMargin = 20 '设置下边距
End With
CurrentTable.DirectPrint(True,False) '打印预览
如图:无表名或标题,如何在表前加表名或自定标题?此主题相关图片如下:qq截图20220512200651.png