以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  打印预览问题求助！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130135)
--  作者：lisheng1971
--  发布时间：2019/1/14 12:27:00
--  打印预览问题求助！
Select Case e.StripItem.Name
    Case "考核表打印"
        Dim Book As New XLS.Book(ProjectPath & "Attachments\\中高级工考核.xls")
        Dim fl As String = ProjectPath & "Reports\\中高级工考核.xls"
        MessageBox.Show("确定要打印吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        Book.Build() \'生成细节区
        Book.Save(fl) \'保存工作簿
        Dim Proc As New Process \'打开工作簿
        Proc.File = fl
        Proc.Start()        \'保存代码
        MessageBox.Show("打印完成!", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    Case "准考证预览"
        Dim tm As String  = ProjectPath & "Attachments\\中高准考证.doc" \'指定模板文件
        Dim fl1 As String = "D:\\鉴定准考证\\中高准考证.doc" \'指定目标文件
        Dim fl2 As String = "D:\\鉴定准考证\\中高准考证.pdf" \'指定目标PDF文件
        Dim wrt As New WordReport(Tables("鉴定管理表"),tm,fl1) \'定义一个WordReport
        MessageBox.Show("确定要打印吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        wrt.Build() \'逐行生成报表
        wrt.SaveToPDF(fl2) \'保存为PDF文件
        wrt.Quit() \'退出
        Dim Proc As New Process \'打开PDF文件
        Proc.File = fl2
        Proc.Start()
        MessageBox.Show("打印完成!", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
End Select
窗口表为副表，窗口“打印预览”按钮为快捷菜单模式（不知这样形容对不对），现在的问题：
1、选择“考核表打印”时，为什么生成的EXCEL表在任务栏，点一下才会在屏幕显示，能直接在屏幕显示吗？
2、        Dim fl As String = ProjectPath & "Reports\\中高级工考核.xls" 这个可以指定路径或文件夹吗？
3、选择“准考证预览”时，生成的PDF文件为什么只有1页（对应窗口表的第1行），而不是按我选择的行数（比如我选了10行）显示10页？同样的代码我以前编写的旧系统中却是选择多少行，就显示多少页PDF文件？旧系统是单独窗口单独表。
--  作者：有点甜
--  发布时间：2019/1/14 14:37:00
--  

1、试试

 

http://www.foxtable.com/webhelp/scr/2713.htm

 

2、什么意思？指定什么路径文件夹？

 

3、参考 http://www.foxtable.com/webhelp/scr/0201.htm

 
--  作者：lisheng1971
--  发布时间：2019/1/14 15:07:00
--  
1、已解决！
2、就是把生成的EXCEL文件存到指定的文件中，这个默认的文件夹是在项目中的，我是想不放在项目中；
3、打印模板是WORD格式，参考好象没什么作用。
--  作者：lisheng1971
--  发布时间：2019/1/14 15:17:00
--  
3已解决！是要把表定义到副表，而不是主表！就是2中的问题能不能解决？
[此贴子已经被作者于2019/1/14 15:20:17编辑过]
--  作者：lisheng1971
--  发布时间：2019/1/14 15:23:00
--  
2已解决
--  作者：有点甜
--  发布时间：2019/1/14 15:36:00
--  
以下是引用lisheng1971在2019/1/14 15:17:00的发言：
3已解决！是要把表定义到副表，而不是主表！就是2中的问题能不能解决？
[此贴子已经被作者于2019/1/14 15:20:17编辑过]

 

直接，写

 

Dim fl As String = "d:\\test\\中高级工考核.xls"