纸的规格是宽210cm，高140cm,打印预览及打印老是自动旋转，代码用过禁止自动旋转，也更改过打印机设置，还是未解决自动旋转的问题。请老师们帮帮看一下代码如何修改？

\'//定义变量//
Dim doc As New PrintDoc \'定义一个新报表
Dim sy As New prt.RenderText \'定义一个文本对象
Dim ym As New prt.RenderTable
Dim yj1 As New prt.RenderTable
Dim rm As New prt.RenderImage

\'//定义第一行主标题//
ym.Cells(0,0).text = "三多帮帮车行对账单" \'调用全局变量中的单位名称
ym.Cells(0,0).SpanCols = 8 \'合并第一行全部单元格,用于显示主标题
ym.Cells(0,0).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'主标题居中
ym.Cells(0,0).Style.TextAlignVert = prt.AlignVertEnum.Top \'单元格内容垂直靠上
ym.Cells(0,0).Style.Font = New Font("宋体", 22, FontStyle.Bold) \'设置主标题字体
ym.Rows(0).Style.Borders.All = New prt.LineDef("0mm", Color.white) \'去掉第一行的网格线
ym.Style.Spacing.Bottom = 2 \'和下面的对象(表格)距离3毫米
ym.CellStyle.Spacing.Bottom = 2 \'底端内容缩进0.5毫米;其中All为全部方向的边距;Top上边;Bottom为下边;Left为左边;Right右边
\'Doc.PageHeader = ym \'作为页眉使用
ym.Cells(1,0).SpanCols = 1 \'合并第一行全部单元格,用于显示主标题
ym.Cells(1,0).text =  ""
ym.Rows(1).Style.Borders.All = New prt.LineDef("0mm", Color.white) \'去掉第一行的网格线
\' //定义第二行内容//
ym.Cells(2,0).SpanCols = 4 \'合并第一行全部单元格,用于显示主标题
ym.Cells(2,0).text = "客户: " &   Tables("总表").Current("客户名称")    & "     单数合计: " &   Tables("总表").Compute("Count(_Identify)") & "个"  & "  金额合计:" &  Tables("总表").Compute("Sum(应收金额)")  & "元 "  
ym.Cells(2,0).Style.Font = New Font("宋体", 12, FontStyle.Bold) \'设置主标题字体
ym.Cells(2,0).Style.TextAlignHorz = prt.AlignHorzEnum.Left \'水平居左对齐
ym.Cells(2,4).SpanCols = 5  \'合并第一行全部单元格,用于显示主标题
ym.Cells(2,4).text = "打印日期:" & Date.Today  &  "  第 [PageNo] 页  共 [PageCount] 页"
ym.Cells(2,4).Style.Font = New Font("宋体", 12, FontStyle.Bold) \'设置主标题字体
ym.Cells(2,4).Style.TextAlignHorz = prt.AlignHorzEnum.Left  \'水平居左对齐
ym.Rows(2).Style.Borders.All = New prt.LineDef("0mm", Color.white)  \'去掉第一行的网格线
Doc.PageHeader = ym
\'设置列标题
Dim rt As New prt.RenderTable  \'定义一个新表格
Dim tb As Table = Tables("总表")
tb.Sort  = "入厂时间,单号"   \'设置排序字段(按客户名称升序单号升序)
Dim ColNames As String() = New String(){"单号", "车辆信息","入厂时间","物品种类","件数","套数","寄存","特护","应收金额","送货时间"}
rt.Width = "Auto" \'表格宽度为自动,也就是等于各列设置宽度之和
rt.SplitHorzBehavior = prt.SplitBehaviorEnum.SplitIfNeeded \'表格宽度超出页宽时,可以水平换页
rt.Style.Font = tb.Font
For c As Integer = 0 To ColNames.Length - 1 \'逐列设置和填入内容
    rt.Cells(0,c).Text = ColNames(c) \'列名作为标题
    rt.Cells(0,10).Text = "备注"    \'定义备注列
    rt.Cells(0,10).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'备注列标题内容水平居中
    rt.Cells(0,c).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'标题内容水平居中
    rt.Cols(c).Width = tb.Cols(ColNames(c)).PrintWidth \'列宽等于实际列宽
    If tb.Cols(ColNames(c)).IsNumeric OrElse tb.Cols(ColNames(c)).IsDate Then \'如果是数值或日期列
        rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center \'所有文本内容居中对齐
        \'  rt.Cols(c).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'数据水平居中
        rt.Style.Font = New Font("宋体", 11, FontStyle.Bold) \'设置字体
    End If
    For r As Integer = 0 To tb.Rows.Count -1 \'开始填入该列内容
        rt.Cells(r + 1, c).Text = tb.Rows(r)(ColNames(c))
        rt.Cols(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'设置第1列内容居中
        rt.Cols(1).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'设置第1列内容居中
        rt.Cols(2).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'设置第3列内容居中
        rt.Cols(3).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'设置第5列内容居左
        rt.Cols(4).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'设置第5列内容居中
        rt.Cols(5).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'设置第6列内容居中
        rt.Cols(6).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'设置第7列内容居中
        rt.Cols(7).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'设置第8列内容居中
        rt.Cols(8).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'设置第9列内容居中
        rt.Cols(9).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'设置第8列内容居中
        rt.Cols(10).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'设置第9列内容居中
     
        rt.Cols(0).Width = 20 \'设定单号列宽度
        rt.Cols(1).Width = 22 \'设定车辆信息列宽度
        rt.Cols(2).Width = 24 \'设定入厂时间列宽度
        rt.Cols(3).Width = 20 \'设定物品种类列宽度
        rt.Cols(4).Width = 20 \'设定件数列宽度
        rt.Cols(5).Width = 10 \'设定销售套数列宽度
        rt.Cols(6).Width = 10 \'设定寄存列宽度
        rt.Cols(7).Width = 10 \'设定特护列宽度
        rt.Cols(8).Width = 20 \'设定应收金额列宽度
        rt.Cols(9).Width = 22 \'设定送货时间列宽度
        rt.Cols(10).Width = 15 \'设定备注列宽度   
    Next
Next

\'\' 页面设置
doc.PageSetting.Width = 210 \'页面宽度毫米
doc.PageSetting.Height = 140 \'页面高度毫米
Doc.PageSetting.LeftMargin = 6 \'页面左边距毫米
Doc.PageSetting.rightMargin = 5 \'页面右边距毫米
Doc.PageSetting.TopMargin = 12 \'页面上边距毫米
Doc.PageSetting.BottomMargin = 10 \'页面下边距毫米

\' Doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight \'设置排列方式
\' doc.PageSetting.Landscape = True \'横向打印
doc.AutoRotate = False \'禁止自动旋转打印内容,如果纸张的宽度超过高度,要加上这行代码

rt.Style.Gridlines.All = New prt.Linedef(Color.Black) \'黑色网格线
rt.CellStyle.Spacing.All = 0.5 \'单元格内距设为0.5毫米
rt.Rows(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center \'第一行内容水平居中
rt.RowGroups(0,1).Header = prt.TableHeaderEnum.All \'利用行组,将第一行设为表头.
doc.Body.Children.Add(rt) \'将表格加入到报表
doc.Preview()

不要预览后打印，改成直接print试试。

下载信息  [文件大小：296.0 KB  下载次数：21]

点击浏览该文件:嵌入专业报表.table

下载信息  [文件大小：296.0 KB  下载次数：39]

点击浏览该文件:嵌入专业报表.table