| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 快递单套打 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77799) |
| -- 作者：newsun2k -- 发布时间：2015/11/25 16:31:00 -- 快递单套打 如题，如何实现？ |
| -- 作者：Hyphen -- 发布时间：2015/11/25 16:33:00 -- 参考帮助票据设计，http://www.foxtable.com/help/topics/1607.htm
|
| -- 作者：newsun2k -- 发布时间：2015/12/2 14:22:00 -- 我这样设置的： e.Form.Page.Height = 127 \'纸张宽度为127毫米 e.Form.Page.Width = 230 \'纸张高度为230毫米 e.Form.Page.Landscape = True \'横向打印 Dim doc As PrintDoc = e.Form.GernatePrintDoc() doc.Preview() 怎么打印出来是纵向打印啊？ 改成 e.Form.Page.Landscape = false 也不行。 只有把 e.Form.Page.Height = 230 \'纸张宽度为127毫米 e.Form.Page.Width = 127 \'纸张高度为230毫米 才行。何解？？？
|
| -- 作者：newsun2k -- 发布时间：2015/12/2 14:22:00 -- 预览没有问题，横向的 |
| -- 作者：大红袍 -- 发布时间：2015/12/2 14:32:00 -- 1、试试
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.AutoRotate = False
doc.PageSetting.Landscape = True \'横向打印
doc.Preview()
2、如果1不行，就调换宽高。
|
| -- 作者：newsun2k -- 发布时间：2015/12/2 14:41:00 -- e.Form.Page.Height = 127 \'纸张宽度为127毫米 e.Form.Page.Width = 230 \'纸张高度为230毫米 Dim doc As PrintDoc = e.Form.GernatePrintDoc() doc.AutoRotate = False doc.PageSetting.Landscape = False \'横向打印 doc.Preview() 改成这样，预览显示是宽小于高度。快递单横向放入，打印是横向打印。 不过，这个位置就太偏了，怎么办？
|
| -- 作者：大红袍 -- 发布时间：2015/12/2 14:43:00 -- 呃，宽高调换或者这样设计
http://www.foxtable.com/help/topics/1191.htm
|
| -- 作者：newsun2k -- 发布时间：2015/12/2 15:12:00 -- 已经调得比较接近了，不过比较靠右。 e.Form.page.LeftMargin = 0 doc.PageSetting.LeftMargin = 0 还是靠右。 控件都快贴边了。
|
| -- 作者：大红袍 -- 发布时间：2015/12/2 15:14:00 -- 1、预览的时候是否正常？
2、如果预览正常，就是你打印机纸张放得不对，你可以把纸往右放一些嘛
3、LeftMargin 弄成负数 看看 |
| -- 作者：newsun2k -- 发布时间：2015/12/2 22:00:00 -- preview有点麻烦，所以直接用doc.print,但是能不能在打印之前弹出对话框，选择一下打印机？ |