主题：飞，你的那个《大量单据同步预览》可以设置打印机不?

页面设置

RtfPrinter有一个PageSetting属性，用于对页面进行设置，该属性包括以下子属性，我们会逐个介绍这些属性的使用方法：

PaperKind:    纸张类型代码
Landscape:    逻辑型，是否横向打印
Height:       设置页面高度，单位为毫米
Width:        页面宽度，单位为毫米
LeftMargin:   左边距，单位为毫米
RightMargin:  右边距，单位为毫米
TopMargin:    上边距，单位为毫米
BottomMargin: 底边距，单位为毫米
Color:        逻辑型，是否彩色打印

通常无需设置Height和Width属性，除非使用自定义纸张类型。

示例

Dim rp As New RtfPrinter("c:\Data\report.rtf")
rp.DataRow = Tables("订单").Current.DataRow '套打订单表的选定行.
rp.PageSetting.PaperKind = 13 '纸张类型改为B5
rp.PageSetting.Landscape = True '横向打印
rp.PageSetting.LeftMargin = 10 '设置左边距
rp.PageSetting.RightMargin = 10 '设置右边距
rp.PageSetting.TopMargin = 20 '设置上边距
rp.PageSetting.BottomMargin = 20 '设置下边距
rp.Replace("{Today}", Date.Today)
rp.Preview()