Foxtable(狐表)用户栏目专家坐堂 → [求助]关于专业报表打印小尺寸标签错误的问题


  共有4328人关注过本帖平板打印复制链接

主题:[求助]关于专业报表打印小尺寸标签错误的问题

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


加好友 发短信
等级:幼狐 帖子:166 积分:1946 威望:0 精华:0 注册:2012/12/26 15:47:00
[求助]关于专业报表打印小尺寸标签错误的问题  发帖心情 Post By:2014/6/29 16:08:00 [只看该作者]

现在碰到一个问题,就是用专业报表设计的标签在打印的时候,如果标签小的话打印不正确

现在需要打印的标签尺寸是35*25,如果采用此规格的话打印出来自动横向变味竖向

相同的代码如果标签尺寸改为100*75(我自己用的另一种标签规格)就没有任何问题

小标签要经常使用,必须要使用,请大家帮忙看看是什么问题

标签打印机型号是佳博GP3120TN

 

请看图


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20140628130809.png
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20140629155712.png
图片点击可在新窗口打开查看

代码如下:

Dim Doc As new PrintDoc '定义一个新报表
Dim rt As New prt.RenderTable '定义一个新表格
Doc.PageSetting.Height = 35

Doc.PageSetting.Width = 25
Doc.PageSetting.LeftMargin = 0  '左边距
Doc.PageSetting.RightMargin = 0 '右边据
doc.PageSetting.BottomMargin = 0 '底边距
Doc.PageSetting.TopMargin = 0 '上边距
'Doc.PageSetting.Landscape = True  '是否横向

Dim tab As Table = Tables("Daohuolist_table1")
rt.Style.Font = tab.font
rt.Rows.Count = 1  '总行数
rt.Cols.Count = 1  '总列数
rt.Height = 35
rt.Width = 25
    'rt.SplitHorzBehavior = prt.SplitBehaviorEnum.Never '禁止水平分割
    'rt.SplitVertBehavior = prt.SplitBehaviorEnum.Never '禁止垂直分割
rt.Style.GridLines.All = New prt.LineDef(0,Color.black)  '网格线
rt.Cells(0,0).Text = "test"

 

Doc.Body.Children.Add(rt)
Doc.PrinterName = "TSC TTP-245"
Doc.Preview() '预览报表

[此贴子已经被作者于2014-6-29 16:08:46编辑过]

 回到顶部
总数 11 1 2 下一页