以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助,有关小piao打印的问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=43899)

--  作者:myzzip
--  发布时间:2013/12/18 14:53:00
--  求助,有关小piao打印的问题

我的是win7系统 1920x1080 的分辨率 设置的打印小票都正常

但是在我的14寸笔记本上 的小票打印 都超出了 各种超呀!!!(笔记本也是win7)

 

这是怎么回事啊?


--  作者:Bin
--  发布时间:2013/12/18 14:54:00
--  
窗口显示是否正常? 是否设置了大字体,DPI设置是否正常?
--  作者:myzzip
--  发布时间:2013/12/18 14:57:00
--  

窗口都正常,也没有单独设置大字体 就是要打印的窗口里面的内容 超出我设置的宽和高


--  作者:myzzip
--  发布时间:2013/12/18 15:01:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:8sghp@zh$vb%wv{l@7fq31s.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:0hcc8_oiq)92gdp5ep}nvep.jpg
图片点击可在新窗口打开查看
Tables("打印数据").ExtendLastCol = True
DataTables("打印数据").SysStyles("EmptyArea").BackColor = Color.White
e.Form.Controls("Label11").Text = Date.Today
Tables("打印数据").Cols("数量").GrandTotal = True \'指定要合计的列
Tables("打印数据").Cols("金额").GrandTotal = True
Tables("打印数据").GrandTotal = True \'显示合计模式
Dim lbl As WinForm.Label
lbl = e.Form.Controls("Label14")
lbl.Text = user.name
Dim n As Integer = Tables("打印数据").Rows.Count
e.Form.Page.Height = 40 + 20 * n
e.Form.Page.Width = 58
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()

--  作者:Bin
--  发布时间:2013/12/18 15:01:00
--  
看看是否这个问题 http://www.foxtable.com/help/topics/2216.htm
--  作者:myzzip
--  发布时间:2013/12/18 15:03:00
--  
我没有用图片 直接用的是窗口
--  作者:Bin
--  发布时间:2013/12/18 15:06:00
--  
也检查一下.
--  作者:myzzip
--  发布时间:2013/12/18 15:18:00
--  


图片点击可在新窗口打开查看此主题相关图片如下:5ikweno4i8j)az3o5b%_nk.jpg
图片点击可在新窗口打开查看

 

这个怎么啦?


--  作者:Bin
--  发布时间:2013/12/18 15:22:00
--  
设置为100%
--  作者:myzzip
--  发布时间:2013/12/18 15:23:00
--  

好的,谢谢啦!