VB或VBA的高手们帮帮我吧!!!!!

lhg79227 2007-08-13 09:08:14
我想在一个名片大小的卡片上打印日期,客户ID,金额,返点这4个项目的内容,每次打印之前要换行(这个我可以通过设置一个变量控制),窗体是用Access做的,打印功能的代码应该是Access中的vb6.0。听别人说实现我这个打印功能有两种办法:
1.用vb来做行打印
2.在vb中调用excel来完成

请问那种方法更简单?都怎么实现?如果你会第一种方法,那么请告诉我具体的打印的语法是什么,如何控制打印位置,字体大小,以及如何换行就可以。

小菜鸟请大家多多关照,不管能不能帮到我,看到这个贴子的人都祝你们好运连连,谢谢!!!!!!!!!~~~~~~~~~~~~
...全文
172 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
lhg79227 2007-08-14
我在ACCESS的VB6.0环境中用下面的语句为什么编译不过呢?

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上述代码为什么编译部通过?
回复
相关推荐
发帖
Office开发/ VBA
创建于2007-08-27

5019

社区成员

其他开发语言 Office开发/ VBA
申请成为版主
帖子事件
创建了帖子
2007-08-13 09:08
社区公告
暂无公告