以文本方式查看主题 - 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打印,就自动横向转纵向吗?
此主题相关图片如下: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,我反馈一下 |