5019
社区成员
VB或VBA的高手们帮帮我吧！！！！！
我想在一个名片大小的卡片上打印日期，客户ID，金额，返点这4个项目的内容，每次打印之前要换行（这个我可以通过设置一个变量控制），窗体是用Access做的，打印功能的代码应该是Access中的vb6.0。听别人说实现我这个打印功能有两种办法：
1.用vb来做行打印
2.在vb中调用excel来完成
请问那种方法更简单？都怎么实现？如果你会第一种方法，那么请告诉我具体的打印的语法是什么，如何控制打印位置，字体大小，以及如何换行就可以。
小菜鸟请大家多多关照，不管能不能帮到我，看到这个贴子的人都祝你们好运连连，谢谢！！！！！！！！！~~~~~~~~~~~~
1.用vb来做行打印
2.在vb中调用excel来完成
请问那种方法更简单？都怎么实现？如果你会第一种方法，那么请告诉我具体的打印的语法是什么，如何控制打印位置，字体大小，以及如何换行就可以。
小菜鸟请大家多多关照，不管能不能帮到我，看到这个贴子的人都祝你们好运连连，谢谢！！！！！！！！！~~~~~~~~~~~~
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
lhg79227 2007-08-14
我在ACCESS的VB6.0环境中用下面的语句为什么编译不过呢？
Printer.FontSize = 20
Printer.Print "bbbbbbbbbb"
Printer.EndDoc
说是Printer没有这些属性？为什么
Printer.FontSize = 20
Printer.Print "bbbbbbbbbb"
Printer.EndDoc
说是Printer没有这些属性？为什么
lhg79227 2007-08-14
没有吗？？？？
zwl232 2007-08-14
你在excel或word里录制一下宏,
代码就都出来了!
代码就都出来了!
lhg79227 2007-08-14
Dim ThisApplication As Microsoft.Office.Interop.Excel.Application = New Microsoft.Office.Interop.Excel.Application
Dim ThisWorkbook As Microsoft.Office.Interop.Excel.Workbook
Dim ThisSheets As Microsoft.Office.Interop.Excel.Sheets
Dim ThisWorkSheet As Microsoft.Office.Interop.Excel.Worksheet
Dim ThisRange As Microsoft.Office.Interop.Excel.Range
ThisApplication.Visible = True
ThisWorkbook = ThisApplication.Workbooks.Open("D:\Visual Studio Projects\test2\bin\joe.xls")
Console.WriteLine (ThisWorkbook.Name)
ThisSheets = ThisWorkbook.Worksheets
ThisWorkSheet = ThisSheets(1)
Console.WriteLine (ThisWorkSheet.Name)
ThisRange = ThisWorkSheet.Range("D4:E7")
Console.WriteLine (ThisRange.Cells(1, 1).Value)
ThisRange.Cells(1, 2).Value = 15
ThisWorkbook.Save()
ThisWorkbook.Close()
ThisApplication.Quit()
Console.WriteLine ("press any key to continue")
Console.ReadLine()
我想在ACCESS中调用EXCEL上述代码为什么编译部通过？
Dim ThisWorkbook As Microsoft.Office.Interop.Excel.Workbook
Dim ThisSheets As Microsoft.Office.Interop.Excel.Sheets
Dim ThisWorkSheet As Microsoft.Office.Interop.Excel.Worksheet
Dim ThisRange As Microsoft.Office.Interop.Excel.Range
ThisApplication.Visible = True
ThisWorkbook = ThisApplication.Workbooks.Open("D:\Visual Studio Projects\test2\bin\joe.xls")
Console.WriteLine (ThisWorkbook.Name)
ThisSheets = ThisWorkbook.Worksheets
ThisWorkSheet = ThisSheets(1)
Console.WriteLine (ThisWorkSheet.Name)
ThisRange = ThisWorkSheet.Range("D4:E7")
Console.WriteLine (ThisRange.Cells(1, 1).Value)
ThisRange.Cells(1, 2).Value = 15
ThisWorkbook.Save()
ThisWorkbook.Close()
ThisApplication.Quit()
Console.WriteLine ("press any key to continue")
Console.ReadLine()
我想在ACCESS中调用EXCEL上述代码为什么编译部通过？
vb/vb.net开发精粹(19) vb6.0 Mschar 获取X轴（注脚）的值、改变图例位置（默认右边） VB实现IP通讯控制 关于Mscomm通讯假死 关于WshShell.AppActivate的疑惑 求助 WINSOCK发送邮件为什么内容稍微长点就收不到呢？ 请教关于图片保存...
vb/vb.net开发精粹(11) Excel VBA编程 vb 引用不了system.data.sqlite.dll 关于 VB6 调用C++ DLL 传参的问题 VB编程问题，如何调试，感激不尽！！！ 如何查询一条或多条记录,修改后批量更新到数据库 求VB代码，可以批量处理上标，...
vb/vb.net开发精粹(12) TXT文本读入数组的问题。...各位请帮帮我啊~VB调用DLL写一个OCX控件 为什么ADODB ConnectionTimeout设置了没效果 紧急求助！-vb如何发邮件 vb modbus Tcp 更多vb开发资料，请访问http://www.vbbaike.com/
vb/vb.net开发技巧荟萃(十二) word插入页码出错 关于mscomm串口通信 文字显示问题 ... ResolveIpNetEntry2如何使用 vb中的数字采用ado方式写入到excel后 变成字符串类型了 VB调用matlab编译的DLL出现自动化错误 回车焦点下移并选中 急求...
我在CSDN参与的3000个帖子 2：100分急求，随机输出十个小写字母，但是，要求这十个字母不相同 3：求Sn=a+aa+aaa+…+aaa…a（n个a）之值 4：数组题 望高手帮忙！ 5：呵呵，来推荐一下我的网站，本站提供大量当今流行的免费的音乐和免费电影，...
Delphi与Word之间的融合技术 自己编写的VBA代码，即不属于上面几种情况的VBA代码，可以被其他VBA代码调用，更重要的是，可以被 其他程序调用。 这样，我们就可以屏弃Word自动执行的宏，通过Delphi直接调用相应宏来达到目的。 五、Word命令宏...
Delphi与Word之间的融合技术（下）zt ,不知哪位高手遇到过这类情况，如何解决？ 调用代码： var wapp, wdoc: variant; tempj: integer; begin try wapp := getactive ole object(' word .application'); except wapp := create ole object('...
WEB开发文档2 总结 转自： ...怎样将后台生成的在内存中的图象显示到客户端 Microsoft IE WebControls下载地址 如何在DATAGRID中使用JAVASCRIPT脚本控制 DataGrid中连接到下一页显示数据 ...VB中的 String(10,A)返回AAAAAAAAAA ,在VB...
基础 高手请进：VC程序控制Excel将某一TextBox或Label或TextFrame的边框颜色设为无，50分 请问BIG5码是如何转换成GB码的？ 如何在一个Service Application中运行另外一个exe文件，且可以显示在桌面上。 怎样调试服务器端...
开发工具&语言 （转载） 您也许希望阅读（或再次阅读）Debbie 在 2002 年 12 月最新发表的“Monitoring Files the Easy Way Using VB.NET”文章。 · 使用 SQLXML 填充多表格数据集 (2003年10月31日) 如果您使用 ADO.NET，并希望...
