vb6.0 控制针式打印机

2009-03-18 07:17:14 580 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Hermes+MemOS记忆系统：用SQLite构建可编辑AI个人认知资产 AI记忆不是简单延长上下文或叠加RAG，而是构建具备分层存储、混合检索与自然语言反馈能力的个人认知资产。其核心原理在于将用户交互痕迹（L1）、偏好策略（L2）、结构化世界模型（L3）和结晶化技能统一管理，实现记忆的可追溯、可修正、可进化。技术价值体现在降低token消耗、提升长程一致性、支持离线演进，并突破传统‘静态快照’式知识库局限。典型应用场景包括个人知识助手、客服工单分析Agent、研发文档理解系统等。本文聚焦Hermes Agent与MemOS深度集成方案，详解SQLite作为ACID底座支撑L1/ 阅读详情

vb6.0 实现控制针式打印机，主要是打印票据，票据一般有一定的框架，主要是准确的走纸把信息填充到票据上，必须是针式打印机。

...全文

别再死磕Excel了！用Vensim PLE免费版，30分钟搞定你的第一个系统动力学模型本文介绍如何使用Vensim PLE免费版在30分钟内构建第一个系统动力学模型，无需编程或数学基础。通过个人储蓄增长案例，详细讲解因果回路图绘制、存量流量图创建及方程编写，帮助读者掌握动态系统建模与仿真技巧，适用于理财、项目管理等多种场景。阅读详情

zhufenghappy

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

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

打赏
举报

http://zhidao.baidu.com/question/4168806.html有本人的代码.

东方之珠 2009-03-18

打赏
举报

1、这个应该不难。从数据库读取数据后，将指定数据按座标设计好打印位置；
2、将发票复印几张，准备浪费几张，反复地试，直到打印到指定位置为准；
3、正式打印发票。
工具可以用水晶报表。

zhufenghappy 2009-03-18

打赏
举报

最好给详细代码，分数不够可以继续加分。也可以打包发送到我邮箱：03zzf03@163.com，在此先谢谢各位大侠。

vb6.0 控制针式打印机

相关推荐