打印不出数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 打印不出数据

共有5204人关注过本帖树形打印复制链接主题：打印不出数据

rgbjwjb

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：637 积分：6461 威望：0 精华：0 注册：2016/12/27 21:05:00

Post By：2018/7/11 11:35:00 [只看该作者]

https://pan.baidu.com/s/1oPeIMs0dhO85UBZQmorHWQ

[此贴子已经被作者于2019/6/4 10:50:02编辑过]

有点甜

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/7/11 11:42:00 [只看该作者]

以下是引用rgbjwjb在2018/7/11 11:34:00的发言：

我点击“进账单修改”窗体中的"打印"按钮，打印机有反应，但是“进账单”中所有录入数据都不能打印，不知什么原因？请指教，谢谢！

1、打印预览，能否正常显示？

2、你打印按钮怎么写的？

3、你可以发到百度云，然后再分享链接出来。

rgbjwjb

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：637 积分：6461 威望：0 精华：0 注册：2016/12/27 21:05:00

Post By：2018/7/11 11:46:00 [只看该作者]

“进账单修改”窗体中的“打印”按钮的代码：

Forms("进账单维护B").open
Forms("进账单维护B").Controls("打印").PerformClick
Forms("进账单维护B").close

预览后有数据，点击“打印”按钮后，打印机有反应，但是“进账单”中所有录入数据都不能打印打印，不知什么原因？请指教，谢谢！

rgbjwjb

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：637 积分：6461 威望：0 精华：0 注册：2016/12/27 21:05:00

Post By：2018/7/11 11:48:00 [只看该作者]

"进账单维护B"窗体的“打印”按钮的代码为：

If Forms("进账单修改").Opened = True Then
Dim p As WinForm.ComboBox = Forms("进账单修改").Controls("指定打印机")
    If p.Value <> "默认" Then
        Dim doc As PrintDoc = e.Form.GernatePrintDoc()
        Doc.PrinterName = p.value
        Doc.Print
    End If
Else
Dim p As WinForm.ComboBox = Forms("进账单新增").Controls("指定打印机")
    If p.Value <> "默认" Then
        Dim doc As PrintDoc = e.Form.GernatePrintDoc()
        Doc.PrinterName = p.value
        Doc.Print
    End If
End If