Foxtable(狐表)用户栏目专家坐堂 → [求助]关于窗体打印的疑惑


  共有3901人关注过本帖树形打印复制链接

主题:[求助]关于窗体打印的疑惑

帅哥哟,离线,有人找我吗?
hiliuyong
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:436 积分:5082 威望:0 精华:0 注册:2012/3/27 15:33:00
[求助]关于窗体打印的疑惑  发帖心情 Post By:2013/12/12 11:19:00 [只看该作者]

e.Form.Page.LeftMargin = 0 '设置左边距
e.Form.Page.RightMargin = 0 '设置右边距
e.Form.Page.TopMargin = 0 '设置上边距
e.Form.Page.BottomMargin = 0 '设置下边距

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
'doc.PageSetting.PaperKind = 8 '纸张类型改为A3
doc.PageSetting.Width = 241
doc.PageSetting.Height =139.7
doc.AutoRotate = False '禁止自动旋转打印内容
doc.PageSetting.Landscape = True '方向
Doc.PrinterName = GetConfigValue("收货运单打印机","")
doc.Preview()
e.Form.Close

 

以上代码,是打印在标准的241-2的纸张上,预览时正常的,打印却是错误的,

如果改为doc.PageSetting.Landscape = False '方向

预览方向错误,但是打印却是正常的。

求教。

[此贴子已经被作者于2013-12-12 11:20:04编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/12/12 11:27:00 [只看该作者]

那就两个按钮,一个打印,一个预览。

 

图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
hiliuyong
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:436 积分:5082 威望:0 精华:0 注册:2012/3/27 15:33:00
  发帖心情 Post By:2013/12/12 11:47:00 [只看该作者]

现在用的是这个办法,但是总觉得不彻底

 回到顶部
帅哥哟,离线,有人找我吗?
hiliuyong
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:436 积分:5082 威望:0 精华:0 注册:2012/3/27 15:33:00
  发帖心情 Post By:2013/12/12 12:10:00 [只看该作者]

还有一个问题,如何控制针式打印机打印后,不走纸,后面如果打印,可以连续打印。


 回到顶部