主题：问个专业报表的问题，piao据套打问题

我现在用专业报表做了个支piao打印系统，现在有个疑问想请教一下：

现在用针式打印机是可以正常打印的，支piao横着打竖着打都可以，但前提是放支piao的时候得靠左边放纸，

但有些时候客户没有针式打印机需要用激光打印机来打印支piao，这样就要求将支piao竖着放纸，而且放纸的时候需要将支piao放在中间，这样才可以打印出来，我看了一下专业报表没有找到这个参数，请问可以实现这个功能吗？用那个参数可以控制打印的时候从中间打印！

狐爸给解答一下哪。。。

If Tables("支piao").Rows.Count>0 Then
If Tables("支piao").Current.DataRow.RowState <> DataRowState.Unchanged Then '如果当前行已经修改过
MessageBox.Show("请先保存单据后打印!","温馨提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
Else
Dim r As Row = Tables("支piao").Current
Dim r1 As String = r("内码")
With Tables("支piao_pconf")
Dim a As Integer
a=.FindRow("[内码]='" & r1 & "'",.position+1,True)

If a>=0 Then '找到
Tables("支piao_pconf").Position=a
Dim prt As Row = Tables("支piao_pconf").Current
Dim pyz As Integer = prt("偏移_左") '取左偏移的值....
Dim pys As Integer = prt("偏移_上") '取上偏移的值....
Dim doc As New PrintDoc '定义一个报表
Dim text As new prt.RenderText
Dim dycs As DataRow = DataTables("系统设置").find("列名 = '默认打印机'")'判断默认打印机
If dycs("列值") = "" Then
MessageBox.Show("未设置默认打印,请在稍后弹出的窗口中选择默认打印机","提示信息")
Forms("系统设置").open
Else
Doc.PrinterName= dycs("列值")
End If
Doc.PageSetting.LeftMargin=1
Doc.PageSetting.BottomMargin =1
Doc.PageSetting.TopMargin=1
Doc.PageSetting.LeftMargin =1
doc.PageSetting.Width = val(prt("长度"))

doc.PageSetting.Height = val(prt("宽度"))

.........

Dim ytz As New prt.RenderText '用途左边
ytz.Text = r("用途")
ytz.X = val(prt("副_用途_X")) + pyz
ytz.y = val(prt("副_用途_Y")) + pys
Doc.body.Children.Add(ytz)
Doc.Preview()
这是代码 不知道能不能看出来什么问题。