以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  A5/A4送货单打印  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=162968)

--  作者:漂亮美眉vszh
--  发布时间: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
按此在新窗口浏览图片

--  作者:漂亮美眉vszh
--  发布时间:2021/4/19 9:05:00
--  

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

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

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


--  作者:漂亮美眉vszh
--  发布时间: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的可打印范围。
--  作者:漂亮美眉vszh
--  发布时间:2021/4/19 9:44:00
--  
以下是引用有点蓝在2021/4/19 9:11:00的发言:
就是3楼的用法。注意的是如果是A5,那么要相应调整所有打印的内容,避免打印宽度超出A5的可打印范围。
老师,3楼是我目前的代码,1.如果用代码横向转纵向打(doc.PageSetting.Landscape = True ),会变成最后一张图片的样子,A5变成A4的模样,乱掉没办法打;
2.目前的代码每次打印都要进行打印设置,旋转方向


--  作者:有点蓝
--  发布时间:2021/4/19 10:11:00
--  
测试了一下,貌似是个bug,我反馈一下