请教各路VB高手：请进 帮小弟个忙了

请问：在用SQL_server + Vb6.0 + F1book(Formula One控件)制作报表和打印时
怎么实现打印功能？

解决方案 »

  1.   

    我为什么用鼠标右键双击f1book网格出现网格和菜单打印界面等 
    之后我按打印按纽没有反映，为什么？
      

  2.   

    就一句f1book.fileprint代码就能打印出网格上的数据吗
      

  3.   

    当然可以，你在程序设计阶段里随便放到哪里，他就能把F1BOOK里的内容打出来了，我为什么用鼠标右键双击f1book网格出现网格和菜单打印界面等 
    之后我按打印按纽没有反映，为什么？
    我不知道你为什么时候没反映，我这里可以的啊
      

  4.   

    你用fileprintpreview预览看看，其他的没看到你的程序，不知道 ，要不然把你的打印窗体的代码发到[email protected]去，我帮你看看
      

  5.   

    huayuxing:你好！我一把代码发到你油箱上去 你有空看一下 谢谢！
      

  6.   

    huayuxing:你好！你有空再收一下看到没有，我这次用263发的,公司的可能不好用
    很抱歉 谢谢！
      

  7.   

    huayuxing:你好！你有空再收一下看到没有，我这次用263给你发到21cn信箱的,你有没有关于f1book控件的中文文档吗?真不好意思，麻烦你老长时间了！ 非常感谢!
      

  8.   

    你用   Set rs = conn.Execute(strSql) 是不会有RS。RERORDCOUNT的值的（此时应该为-1）
    你在用for i=0 to rs.RecordCount 当然会出错，
    你用前面的Rs.open Ssql,conn.1,3你最好在LOAD过程中跟踪调试一下，看看到底错在哪里，
      

  9.   

    你好：我的Execute是个函数已经在form上出现50多条数据了 这个rs记录集结果是没有问题的了，谢谢！还有高招没？有f1book中文文档吗？
      

  10.   

    记录集是会有(50几条记录当然也有的,但他没有recordcount的值
    你只给我代码，我说的窗体文件一起拿过来，我来调试，OK
      

  11.   

    你随便装一个打印机（可以是空的），这可能是F1BOOK找不到打印机的缘故，
      

  12.   

    没有中文的帮助，打印预览的时候它都要调你当前打印机的设置，如纸张的大小，等，你没有装打印机即使在F1B00K上有数据，它也不可能不出错
      

  13.   

    哥们：
        我给你发过来form文件了，你看一下，我看了
        rs.Open strSql, conn, adOpenKeyset, adLockOptimistic
        和 
        Set rs = conn.Execute(strSql)
        rs.recordcount都有值
      

  14.   

    代码已经测过一，一切都正常，可以预览，可以打印，你应该是没有装打印机的缘故
    unable to initialize printer.你的出错也说明了不能初始化打印机而已
      

  15.   

    大哥：可是当我开始调用它时，就打印预览不了,为什么？怎么解决？
    Function SetPrinterFunc(ByRef f1b As F1Book)
        Dim printSetup As F1PageSetup
        Set printSetup = f1b.GetPageSetup
        With printSetup
             .ColHeadings = True         
             .HeaderMargin = g_Repuse.pageTop
             .FooterMargin = g_Repuse.pageBotton
             .LeftMargin = g_Repuse.pageLeft
             .RightMargin = g_Repuse.pageRight         
             .Header = f1b.Title                       
             .Footer = "第 &P 页（共 &n 页）"
             .CenterHoriz = True
             Select Case g_Repuse.pageSize         
                Case 8:
                    .PaperSize = F1PaperA3
                Case 9:
                    .PaperSize = F1PaperA4
                Case 11:
                    .PaperSize = F1PaperA5
                Case 12:
                    .PaperSize = F1PaperB4
                Case 13:
                    .PaperSize = F1PaperB5
                Case Else
                    .PaperSize = F1PaperA4
             End Select         
             .Landscape = True                  
        End With
        f1b.SetPageSetup printSetup    
    End Function
      

  16.   

    请问怎样实现Excel文件和Access文件中的表数据导入SQLServer的已经存在的表中
      

  17.   

    g_Repuse是用户自定义类型,对应表中的各字段值 意义是：对应打印机的属性设置 比如：纸长、宽、大小等
      

  18.   

    请问用VB编程怎样实现Excel文件和Access文件中的表数据导入SQLServer的已经存在的表中