纸的规格是宽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()
加好友 
发短信
Post By：2018/6/10 17:44:00 [只看该作者]
