如何用VB制作一张表单？

Question

想寻找点思路要做一个表格然后 填上内容 打印出来的 具体 应该如何操作如果用 WORD 或者 EXCEL 怎么才能画出表格并准确写到指定位置。。包括合并单元格或者 其他什么的办法请教各位高手。

Answer 1

给你一个思路：
1、首先创建一个Excel文件，设置好表格格式以及打印效果等你想要的效果，作为模板文件。
2、每次你要填写数据之前，以模板文件为基础，复制创建一个新的Excel文件。
3、使用Excel。Application对象编程填写数据入新创建的Excel文件，在填写完毕后使用Excel的打印命令打印即可。

Answer 2

If mshStockQueryResult.Rows <= 1 Then Exit Sub      '如果没有库存记录，那么退出过程
            strSourceFile = App.Path & "\系统选项\Excel\库存模板.xls"
            strFile = App.Path & "\系统选项\Temp\xxx.xls"      '生成零时文件
            '复制模板到指定的路径下
            lngP = CopyFile(strSourceFile, strFile, False)
            '％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％
            '填写Excel文件
            Set xlsApp = CreateObject("Excel.Application")          '生成Excel工程对象
            Set xlsBook = xlsApp.Workbooks.Open(strFile, , False)   '打开Excel工作薄对象
            Set xlsSheet = xlsBook.Worksheets("PartsStock")         '设定要操作的工作表
            xlsSheet.Activate
            xlsApp.Visible = False                                  '隐藏Excel工程，后台进行填写
            Rem 将鼠标设置为带沙漏形状的光标，代表正在执行后台数据处理
            Screen.MousePointer = 0
            Call subDelAniCursor
            Call subSetAniCursor(App.Path & "\系统选项\系统光标\Do.ani")
            '填写Excel文件
            With mshStockQueryResult
                For lngP = 1 To .Rows - 1
                    DoEvents
                    xlsSheet.Cells(lngP + 3, 1) = .TextMatrix(lngP, 0)      '序号
                    xlsSheet.Cells(lngP + 3, 2) = .TextMatrix(lngP, 1)      '入库编号
                    xlsSheet.Cells(lngP + 3, 3) = .TextMatrix(lngP, 2)      '配件件号
                    xlsSheet.Cells(lngP + 3, 4) = .TextMatrix(lngP, 3)      '配件品牌
                    xlsSheet.Cells(lngP + 3, 5) = .TextMatrix(lngP, 4)      '配件名称
                    xlsSheet.Cells(lngP + 3, 6) = .TextMatrix(lngP, 5)      '配件数量
                    xlsSheet.Cells(lngP + 3, 7) = .TextMatrix(lngP, 6)      '供货商
                Next lngP
            End With
            xlsBook.Save                                            '保存工作薄
            xlsSheet.PrintOut                                       '打印库存报表
            lngP = GetTickCount
            Do
                DoEvents
            Loop Until GetTickCount - lngP > 5000
            xlsBook.Close                                           '关闭工作薄
            Set xlsSheet = Nothing                                  '断开工作表连
            Set xlsBook = Nothing                                   '断开工作薄连接
            Set xlsApp = Nothing                                    '断开Excel工程连接
            If strFile <> "" Then lngP = DeleteFile(strFile)        '删除零时文件
            Rem 恢复鼠标图形
            Call subDelAniCursor
            Call subSetAniCursor(App.Path & "\系统选项\系统光标\Normal.ani")

Answer 3

这个是我开发的报表表格程序
http://hi.baidu.com/cxy5636917/blog/item/3476a8c4499c7ca48326ac33.html

Answer 4

1.VB自带的REPORT，包括更高版本附带的水晶报表（这个比较强大了）。
2.VB用VBA编程操作EXCEL表单，可利用其公式及其它功能。这个查下VBA编程即可。
3.如果只是简单的显示打印，你用VB自己就画出来了。

Answer 5

用spreadsheet,这个是excel控件，可以在vb界面显示，然后可以很方便导入excel