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

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

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

小菜鸟请大家多多关照,不管能不能帮到我,看到这个贴子的人都祝你们好运连连,谢谢!!!!!!!!!~~~~~~~~~~~~
...全文
218 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
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上述代码为什么编译部通过?

5,172

社区成员

发帖
与我相关
我的任务
社区描述
其他开发语言 Office开发/ VBA
社区管理员
  • Office开发/ VBA社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧