vb6.0 控制针式打印机

zhufenghappy 2009-03-18 07:17:14
vb6.0 实现控制针式打印机,主要是打印票据,票据一般有一定的框架,主要是准确的走纸把信息填充到票据上,必须是针式打印机。
...全文
482 13 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
13 条回复
切换为时间正序
请发表友善的回复…
发表回复
zhufenghappy 2009-03-20
  • 打赏
  • 举报
回复
谢谢各位了,现在就结帖。
ttsffgg 2009-03-20
  • 打赏
  • 举报
回复
我也在控制打印票据 没感觉是否针式有什么不同
ljluck7687 2009-03-19
  • 打赏
  • 举报
回复
可用平推式打印机打印票据。精确定位打印在于编程,对打印机没有太大的要求
jhone99 2009-03-19
  • 打赏
  • 举报
回复
Dim dblNormX As Double
Dim dblNormY As Double

Private Sub Command1_Click()
Printer.ScaleMode = vbMillimeters '按mm计算打印位置

'打印机品牌多,而且有的时候与系统也有关系,设置打印位置初始值,方便调节
dblNormX = 10 '横向打印调节值
dblNormY = 20 '竖向打印调节值

s_PrintString "Title", 22, 10, 30, "黑体", True
s_PrintString "aaaaaaaaaaaaaaaaaa", 16, 5, 50

Printer.EndDoc '实施打印

End Sub

Private Sub s_PrintString(ByVal strPrintString As String, ByVal intFontSize As Integer _
, ByVal dblCurrentX As Double, ByVal dblCurrentY As Double _
, Optional strFontName As String = "宋体", Optional blnFontBold As Boolean = False _
, Optional blnFontItalic As Boolean = False)




Printer.FontName = strFontName '控制字体
Printer.FontSize = intFontSize '控制字体大小
Printer.FontItalic = blnFontItalic '控制是否斜体
Printer.FontBold = blnFontBold '控制是否粗体
Printer.CurrentX = dblCurrentX + dblNormX '控制横向打印位置
Printer.CurrentY = dblCurrentY + dblNormY '控制竖向打印位置
Printer.Print strPrintString '打印字符串

End Sub


vbman2003 2009-03-19
  • 打赏
  • 举报
回复
套打一般用Printer对象,报表用报表工具
楼主的要求应该属于套打,建义用Printer....
jhone99 2009-03-19
  • 打赏
  • 举报
回复
Dim dblNormX As Double
Dim dblNormY As Double

Private Sub Command1_Click()
Printer.ScaleMode = vbMillimeters
dblNormX = 10
dblNormY = 20

s_PrintString "Title", 22, 10, 30, "黑体", True
s_PrintString "aaaaaaaaaaaaaaaaaa", 16, 5, 50

Printer.EndDoc

End Sub

Private Sub s_PrintString(ByVal strPrintString As String, ByVal intFontSize As Integer _
, ByVal dblCurrentX As Double, ByVal dblCurrentY As Double _
, Optional strFontName As String = "宋体", Optional blnFontBold As Boolean = False _
, Optional blnFontItalic As Boolean = False)




Printer.FontName = strFontName
Printer.FontSize = intFontSize
Printer.FontItalic = blnFontItalic
Printer.FontBold = blnFontBold
Printer.CurrentX = dblCurrentX + dblNormX
Printer.CurrentY = dblCurrentY + dblNormY
Printer.Print strPrintString

End Sub


dlschan 2009-03-19
  • 打赏
  • 举报
回复
不懂,帮顶
zdingyun 2009-03-19
  • 打赏
  • 举报
回复
Option Explicit
Private y As Integer
Private x As Integer
Private j As Integer
Private txt As String
Private fnt As Single
Private dd As Variant
Const bl = 567 '1厘米=576缇
'打印函数
Public Function prnt(x As Integer, y As Integer, fnt As Single, txt As String)
Printer.CurrentX = x
Printer.CurrentY = y
Printer.FontSize = fnt
Printer.Print txt
End Function

Private Sub Command1_Click()
fnt = 20 '字号
x = 8 * bl '横向离左8厘米
y = 2.5 * bl '纵向离上2.5厘米
txt = "各位能说说思路或是给出代码好吗?" '打印内容
dd = prnt(x, y, fnt, txt) '调用打印函数
Printer.EndDoc
End Sub
zhufenghappy 2009-03-19
  • 打赏
  • 举报
回复
各位能说说思路或是给出代码好吗?
attly 2009-03-18
  • 打赏
  • 举报
回复
挺简单的,推荐使用activeReport
zdingyun 2009-03-18
  • 打赏
  • 举报
回复
东方之珠 2009-03-18
  • 打赏
  • 举报
回复
1、这个应该不难。从数据库读取数据后,将指定数据按座标设计好打印位置;
2、将发票复印几张,准备浪费几张,反复地试,直到打印到指定位置为准;
3、正式打印发票。
工具可以用水晶报表。
zhufenghappy 2009-03-18
  • 打赏
  • 举报
回复
最好给详细代码,分数不够可以继续加分。也可以打包发送到我邮箱:03zzf03@163.com,在此先谢谢各位大侠。

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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