A5/A4送货单打印 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → A5/A4送货单打印

共有4293人关注过本帖树形打印复制链接主题：A5/A4送货单打印

漂亮美眉vszh

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：893 积分：8064 威望：0 精华：0 注册：2013/5/30 11:27:00

A5/A4送货单打印 发帖心情

Post By：2021/4/19 9:03:00 [只看该作者]

老师，如果送货品种多时，是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

漂亮美眉vszh

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：893 积分：8064 威望：0 精华：0 注册：2013/5/30 11:27:00

Post By：2021/4/19 9:05:00 [只看该作者]

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=160468&page=0&move=next

有在论坛上搜索到一模一样的情况

但我这个还要打A4，调整默认打印机方向，怕是会影响A4的打印

漂亮美眉vszh

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：893 积分：8064 威望：0 精华：0 注册：2013/5/30 11:27:00

Post By：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