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

[lhg79227]

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

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

小菜鸟请大家多多关照，不管能不能帮到我，看到这个贴子的人都祝你们好运连连，谢谢！！！！！！！！！~~~~~~~~~~~~

[lhg79227]

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上述代码为什么编译部通过？

[zwl232]

你在excel或word里录制一下宏,

代码就都出来了!

[lhg79227]

没有吗？？？？

[lhg79227]

我在ACCESS的VB6.0环境中用下面的语句为什么编译不过呢？

Printer.FontSize = 20
Printer.Print "bbbbbbbbbb"
Printer.EndDoc

说是Printer没有这些属性？为什么