Foxtable(狐表)用户栏目专家坐堂 → 为什么 A5 第一页横打印正常 ,第二页就打直了


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

主题:为什么 A5 第一页横打印正常 ,第二页就打直了

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


加好友 发短信
等级:童狐 帖子:275 积分:3253 威望:0 精华:0 注册:2017/10/4 1:48:00
为什么 A5 第一页横打印正常 ,第二页就打直了  发帖心情 Post By:2023/3/16 16:25:00 [只看该作者]

为什么 A5纸 第一页内容横打印正常 ,第二页内容就打直了

Dim Str(20) As String
'Tables("pos_transaction_poll").Filter="[pos_no]= '"& P_pos_no &"'  "
'Tables("pos_master_poll").Filter="[pos_no]= '"& P_pos_no &"'  "
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
Dim ps As New System.Drawing.Printing.PrinterSettings 
'Dim POS_TRANSACTION_1  As WinForm.Table = e.Form.Controls("POS_TRANSACTION_1")
'Dim POS_TRANSACTION_POLL As WinForm.Table = e.Form.Controls("POS_TRANSACTION_POLL")
Dim rt As prt.RenderText '定义一个文本对象


'MessageBox.Show ( " PageNo" & [PageNo] )
rt = New prt.RenderText '设置文本对象的内容
'rt.Text = "第[PageNo]頁,共[PageCount]頁" '设置文本内容

rt.Style.TextAlignHorz = prt.AlignHorzEnum.Right '靠右对齐
'rt.Style.Borders.Bottom = New prt.LineDef(0.3, Color.Green) '设置底边框
rt.Style.Padding.Bottom = 0.5 '底端内容缩进0.5毫米
rt.Style.FontSize = 8 '字体大小为8磅
Doc.PageFooter = rt '作为页眉使用

Dim ps2 As New System.Drawing.Printing.PrinterSettings 
ps2.Copies = 1   '设置份数'
doc.PageSetting.PaperKind = 11   ' a5
doc.PageSetting.Landscape=True


'e.Form.Page.PaperKind = 11 '纸张类型改为A5
'e.Form.Page.Landscape = False

If P_computer_name<>"POS-KC" Then
  Doc.PrinterName ="HP_M183FW"
    Else
    Doc.PrinterName ="HP_M183FW-1"
End If

doc.Print     '打印
'Doc.Preview

Dim frm As WinForm.Form
frm = Forms("invoice")
frm.Close()
'Syscmd.Project.Exit()

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


加好友 发短信
等级:超级版主 帖子:111427 积分:567211 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/3/16 16:34:00 [只看该作者]

请上传实例测试

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


加好友 发短信
等级:童狐 帖子:275 积分:3253 威望:0 精华:0 注册:2017/10/4 1:48:00
  发帖心情 Post By:2023/3/16 17:14:00 [只看该作者]

就是上面那一段呢 , 我打印第一页是 横印 ,第二页就自己变了竖印了 ,好奇怪

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


加好友 发短信
等级:超级版主 帖子:111427 积分:567211 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/3/16 17:17:00 [只看该作者]

代码看不出有什么问题。

 回到顶部