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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]连续打印

共有2389人关注过本帖树形打印复制链接主题：[求助]连续打印

husl

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

加好友

发短信

等级：幼狐帖子：114 积分：984 威望：0 精华：0 注册：2015/11/16 12:46:00

[求助]连续打印 发帖心情

Post By：2016/5/26 0:58:00 [只看该作者]

老师好，请教下关于复选框勾选连续打印的问题。

用的纸张是 241mm*279.4mm的三联纸

EXCEL 报表里打印设置里纸张设置成同种规格的，但是打印一张的时候可以，当多选的时候就会空一张纸出来再打下一个，而且还会出现EXCEL报表已经使用，只能只读模式

请问下报表格式要怎么设计？

<End>

<出库明细表>

[公司名称]

销售回执单

备查联（白）二联||客户签收联（红）三联||送货联（黄）

<"回执单号：" & [回执编号]>

发货公司：

[发货公司]

发运日期：

[日期]

<"收货客户：" & [收货单位]>

联系信息：

[联系人]

收货地址：

[收货地址]

品名

批次

计量单位

配载数量

配载件数

实发数量

实发件数

客户签收数量

发货通知单号

备注

[品名]

[批号]

吨

[配载重量]

[配载件数]

[出库重量]

[件数]

[发货单号]

[发货备注]

<"车牌号码：" & [承运车辆]>

司机姓名：

[驾驶员]

联系电话：

[联系电话]

<出库明细表>

<End>

Hyphen

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

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/5/26 8:39:00 [只看该作者]

这样看不出问题，上传模板并贴出打印代码

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/26 9:18:00 [只看该作者]

贴出你打印的代码，或者上传具体例子测试。

husl

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

加好友

发短信

等级：幼狐帖子：114 积分：984 威望：0 精华：0 注册：2015/11/16 12:46:00

Post By：2016/5/26 11:44:00 [只看该作者]

For Each R2 As Row In Tables("组货计划窗口_出库明细附表").GetCheckedRows

If r2("库位")<>Nothing Then

Dim Book As XLS.Book

book = New XLS.Book(ProjectPath & "Attachments\回执单模板.xls")

Dim fl As String = ProjectPath & "Reports\出库开单.xls"

Book.Build() '生成细节区

Book.Save(fl) '保存工作簿

Dim Proc As New Process '打开工作簿

Proc.File = fl

Proc.Verb= "Print"

Proc.Start()

R2("已打印")=True

Else

MessageBox.Show("请选择库位后再打印!","提示:")

End If

R2.Checked =False

打印代码如上，请老师帮忙看看~~

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/26 11:50:00 [只看该作者]

试试这样

For Each R2 As Row In Tables("组货计划窗口_出库明细附表").GetCheckedRows
    If r2("库位")<>Nothing Then

        Dim Book As XLS.Book

        book = New XLS.Book(ProjectPath & "Attachments\回执单模板.xls")
        Dim fl As String = ProjectPath & "Reports\出库开单.xls"
        Book.Build() '生成细节区
        Book.Save(fl) '保存工作簿

        Dim App As New MSExcel.Application
        Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
        Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
        ws.Print
        App.Quit

        R2("已打印")=True
    Else
        MessageBox.Show("请选择库位后再打印!","提示:")
    End If
    R2.Checked =False
Next

husl

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

加好友

发短信

等级：幼狐帖子：114 积分：984 威望：0 精华：0 注册：2015/11/16 12:46:00

Post By：2016/5/26 13:26:00 [只看该作者]

.NET Framework 版本：2.0.50727.5466
Foxtable 版本：2016.5.13.1
错误所在事件：窗口,组货计划窗口,打印,Click
详细错误信息：
未找到类型“Worksheet”的公共成员“Print”。

按照老师代码。，提示如上错误。。

husl

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

加好友

发短信

等级：幼狐帖子：114 积分：984 威望：0 精华：0 注册：2015/11/16 12:46:00

Post By：2016/5/26 13:39:00 [只看该作者]

ws.PrintOut （1,1）

App.Quit

改成这个，可以打印，，但是打印出来的内容是重复的。提示出库开单已经打开

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/26 14:50:00 [只看该作者]

If FileSys.DirectoryExists(ProjectPath & "Reports\temp") Then
    FileSys.DeleteDirectory(ProjectPath & "Reports\temp\", 3, 3)
End If
For Each R2 As Row In Tables("组货计划窗口_出库明细附表").GetCheckedRows
    If r2("库位")<>Nothing Then

        Dim Book As XLS.Book

        book = New XLS.Book(ProjectPath & "Attachments\回执单模板.xls")
        Dim fl As String = ProjectPath & "Reports\temp\出库开单" & format(Date.now, "HHmmss") & ".xls"
        Book.Build() '生成细节区
        Book.Save(fl) '保存工作簿

        Dim App As New MSExcel.Application
        Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
        Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
        ws.PrintOut
        App.Quit

        R2("已打印")=True
    Else
        MessageBox.Show("请选择库位后再打印!","提示:")
    End If
    R2.Checked =False
Next

下一主题 >> << 上一主题

主题：[求助]连续打印