主题：[求助]为什么预览打印与直接打印，结果不一致？

 Dim doc As New PrintDoc '定义一个报表
doc.PageSetting.Width = 297 '纸张宽度为100毫米
doc.PageSetting.Height = 420 '纸张高度为120毫米
Dim rx As new prt.RenderText '定义一个文本对象
Dim CurRow As Row = Tables("基本信息").Current

rx = new prt.RenderText
rx.Text = CurRow("合同项")
rx.x = 232
rx.y = 87
rx.Style.FontBold = True '字体加粗
rx.Style.FontSize = 14 '字体大小为16磅
rx.Style.TextAngle = -90  '文本旋转角度
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = CurRow("合同期限")
rx.x = 222
rx.y = 90
rx.Style.FontBold = True '字体加粗
rx.Style.FontSize = 14 '字体大小为16磅
rx.Style.TextAngle = -90  '文本旋转角度
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = Format(CurRow("起始日期"),"yyyy")
rx.x = 222
rx.y = 115
rx.Style.FontBold = True '字体加粗
rx.Style.FontSize = 14 '字体大小为16磅
rx.Style.TextAngle = -90  '文本旋转角度
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = Format(CurRow("起始日期"),"MM")
rx.x = 222
rx.y = 138
rx.Style.FontBold = True '字体加粗
rx.Style.FontSize = 14 '字体大小为16磅
rx.Style.TextAngle = -90  '文本旋转角度
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = Format(CurRow("起始日期"),"dd")
rx.x = 222
rx.y = 158
rx.Style.FontBold = True '字体加粗
rx.Style.FontSize = 14 '字体大小为16磅
rx.Style.TextAngle = -90  '文本旋转角度
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = Format(CurRow("终止日期"),"yyyy")
rx.x = 212
rx.y = 22
rx.Style.FontBold = True '字体加粗
rx.Style.FontSize = 14 '字体大小为16磅
rx.Style.TextAngle = -90  '文本旋转角度
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = Format(CurRow("终止日期"),"MM")
rx.x = 212
rx.y = 50
rx.Style.FontBold = True '字体加粗
rx.Style.FontSize = 14 '字体大小为16磅
rx.Style.TextAngle = -90  '文本旋转角度
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = Format(CurRow("终止日期"),"dd")
rx.x = 212
rx.y = 66
rx.Style.FontBold = True '字体加粗
rx.Style.FontSize = 14 '字体大小为16磅
rx.Style.TextAngle = -90  '文本旋转角度
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = CurRow("聘用部门")
rx.x = 134
rx.y = 95
rx.Style.FontBold = True '字体加粗
rx.Style.FontSize = 14 '字体大小为16磅
rx.Style.TextAngle = -90  '文本旋转角度
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = CurRow("聘用岗位").SubString(0,6)  '获得左边6个字符
rx.x = 134
rx.y = 155
rx.Style.FontBold = True '字体加粗
rx.Style.FontSize = 12 '字体大小为16磅
rx.Style.TextAngle = -90  '文本旋转角度
doc.body.Children.Add(rx)

rx = new prt.RenderText
rx.Text = CurRow("聘用岗位").SubString(6)  '获得左边第6个字符开始的后面的所有字符
rx.x = 124
rx.y = 22
rx.Style.FontBold = True '字体加粗
rx.Style.FontSize = 12 '字体大小为16磅
rx.Style.TextAngle = -90  '文本旋转角度
doc.body.Children.Add(rx)

Doc.PrinterName = e.Form.Controls("ComboBox1").text

这个是专业报表本身的bug，暂时无法解决。只能把预览和打印分开2个按钮分别调用，不要在预览里打印