- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- A5/A4送货单打印 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=162968)
-- 发布时间：2021/4/19 9:03:00
-- A5/A4送货单打印
老师，如果送货品种多时，是A4打印，正常常
但如果送货品种少时，是用A5，打印，会变成纵向
如果调整代码，会纸张方向发生变化
每次都要打印设置横向转纵向，好麻烦
用啥代码，如果是A5打印，就自动横向转纵向吗？
| Dim doc As New PrintDoc \'定义一个报表 |
| Doc.PageSetting.LeftMargin = 10 |
| Doc.PageSetting.RightMargin = 10 |
| Doc.PageSetting.TopMargin = 16 |
| Doc.PageSetting.BottomMargin = 10 |
| Dim st1 As Integer = Args(0) |
| Dim _Id0 As String = Args(1) |
| \'Dim lm As Single = CSng(Doc.PageSetting.LeftMargin.Tostring()) |
| doc.PageSetting.PaperKind = st1 |
| Dim lm As Single = CSng(Doc.PageSetting.LeftMargin.Tostring()) |
| If st1 = 11 Then |
| doc.PageSetting.Landscape = True \'横向打印 |
| Else |
| doc.PageSetting.Landscape = False |
| \'End If |
| Doc.PageSetting.LeftMargin = lm |
此主题相关图片如下：11.png
此主题相关图片如下：22.png
此主题相关图片如下：33.png
-- 发布时间：2021/4/19 9:05:00
--
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=160468&page=0&move=next
有在论坛上搜索到一模一样的情况
但我这个还要打A4，调整默认打印机方向，怕是会影响A4的打印
-- 发布时间：2021/4/19 9:05:00
--
Dim doc As New PrintDoc \'定义一个报表
Doc.PageSetting.LeftMargin = 10
Doc.PageSetting.RightMargin = 10
Doc.PageSetting.TopMargin = 16
Doc.PageSetting.BottomMargin = 10
Dim st1 As Integer = Args(0)
Dim _Id0 As String = Args(1)
doc.PageSetting.PaperKind = st1
Dim lm As Single = CSng(Doc.PageSetting.LeftMargin.Tostring())
If st1 = 11 Then
doc.PageSetting.Landscape = True \'横向打印
Else
doc.PageSetting.Landscape = False
End If
Doc.PageSetting.LeftMargin = lm
-- 发布时间：2021/4/19 9:11:00
--
就是3楼的用法。注意的是如果是A5，那么要相应调整所有打印的内容，避免打印宽度超出A5的可打印范围。
-- 发布时间：2021/4/19 9:44:00
--
以下是引用有点蓝在2021/4/19 9:11:00的发言：
就是3楼的用法。注意的是如果是A5，那么要相应调整所有打印的内容，避免打印宽度超出A5的可打印范围。
就是3楼的用法。注意的是如果是A5，那么要相应调整所有打印的内容，避免打印宽度超出A5的可打印范围。
老师，3楼是我目前的代码，1.如果用代码横向转纵向打（doc.PageSetting.Landscape = True ），会变成最后一张图片的样子，A5变成A4的模样，乱掉没办法打；
2.目前的代码每次打印都要进行打印设置，旋转方向
-- 发布时间：2021/4/19 10:11:00
--
测试了一下，貌似是个bug，我反馈一下