以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  直接打印窗口  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=16914)
--  作者：bm
--  发布时间：2012/2/27 15:51:00
--  直接打印窗口

e.Form.Page.Width = 305
e.Form.Page.Height = 250
e.Form.Page.LeftMargin = 0
e.Form.Page.RightMargin = 0
e.Form.Page.TopMargin = 37
e.Form.Page.BottomMargin = 0
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.PageSetting.Landscape = True
Doc.PrinterName = "EPSON LQ-735K ESC/P2"
doc.Print()

为什么直接打印横向打印代码无效

 
--  作者：狐狸爸爸
--  发布时间：2012/2/27 15:53:00
--  

http://www.foxtable.com/help/topics/1589.htm

 
--  作者：bm
--  发布时间：2012/2/27 19:23:00
--  是窗口

狐狸·爸爸·是·窗口·

doc.AutoRotate = False无效

e.Form.Page.Width = 305
e.Form.Page.Height = 250
e.Form.Page.LeftMargin = 0
e.Form.Page.RightMargin = 0
e.Form.Page.TopMargin = 37
e.Form.Page.BottomMargin = 0
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.PageSetting.Landscape = True
doc.AutoRotate = False
Doc.PrinterName = "EPSON LQ-735K ESC/P2"
doc.Print()

[此贴子已经被作者于2012-2-27 19:34:05编辑过]
--  作者：狐狸爸爸
--  发布时间：2012/2/28 8:18:00
--  

e.Form.Page.Width = 305
e.Form.Page.Height = 250
e.Form.Page.LeftMargin = 0
e.Form.Page.RightMargin = 0
e.Form.Page.TopMargin = 37
e.Form.Page.BottomMargin = 0
Dim doc As PrintDoc = e.Form.GernatePrintDoc()

Doc.PrinterName = "EPSON LQ-735K ESC/P2"

doc.AutoRotate = False

doc.Print()
--  作者：bm
--  发布时间：2012/2/28 10:55:00
--  代码无效
我把打印机设置成横向打印。ok了。
--  作者：狐狸爸爸
--  发布时间：2012/2/28 11:00:00
--  
以下是引用bm在2012-2-28 10:55:00的发言：
我把打印机设置成横向打印。ok了。

 

在哪里设置？