VB如何控制打印机的打印问题。（以EPSON打印机为例）-CSDN论坛

VB如何控制打印机的打印问题。（以EPSON打印机为例）

VB > VB基础类

收藏回复

[问题点数：0分]

⋅vb 调用C写的dll 含结构体问题！大家帮我看看。 ⋅vb 调用C写的动态库奇怪的问题！ ⋅这个存储过程如何写（100分结贴） 更多帖子 关注私信空间博客 cmt123 等级 本版专家分：32 结帖率 98.36%: 我想用VB控制打印机打印票据，但必需控制它进纸多少，出纸多少，如何按固定的票据格式打印，各位高手请帮忙！

2002-05-08 10:58:31

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅win2000+office2000+vba如何定义纸张？ ⋅VB6+WIN2000纸张定义 ⋅vb中如何读写INI文件？ 更多帖子 关注私信空间博客 sxyclc 等级 本版专家分：40: 我用的是STAR—5400代码

Call StartPagePrinter(hPrinter)


  i = MsgBox("退纸吗？", vbYesNo + vbDefaultButton1, "提示信息")

  If i = vbYes Then
    For k = 1 To 2
      printdata$ = Chr$(27) & Chr$(118)
      Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)
      printdata$ = Chr$(10)
      Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)
    Next k
  End If

  printdata$ = Chr$(27) & Chr$(102)
  Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)

  '设24*24点阵字库
  printdata$ = Chr$(27) & Chr$(117) & Chr$(3)
  Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)
  '设28*28点阵字库
  printdata$ = Chr$(28) & Chr$(101) & Chr$(28) & Chr$(28)
  Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)

  For i = 1 To zpage
    printset.MoveFirst
   '设定行距
    r = printset.rowzb
    printdata$ = Chr$(27) & Chr$(65) & Chr$(r)
    Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)
   '走一行
    printdata$ = Chr$(10)
    Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)

    c = printset.colzb
    printdata$ = Chr$(27) & "q0" & Space(c) & x_formatx(dwmc, 20)
    Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)
    printset.MoveNext

    c = printset.colzb
    printdata$ = Chr$(27) & "q0" & Space(c) & Year(Date)
    Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)
    printset.MoveNext

    c = printset.colzb
    printdata$ = Chr$(27) & "q0" & Space(c) & Month(Date)
    Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)
    printset.MoveNext

    c = printset.colzb
    printdata$ = Chr$(27) & "q0" & Space(c) & Day(Date)
    Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)
    printset.MoveNext

   '走一行
    r = printset.rowzb
    printdata$ = Chr$(27) & Chr$(65) & Chr$(r)
    Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)
    printdata$ = Chr$(10)
    Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)

    For k = 1 To 6

      a(k) = printset.colzb
      printset.MoveNext
    Next k

    For j = 0 To 2
     r = 13
     printdata$ = Chr$(27) & Chr$(65) & Chr$(r)
     Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)
     If j <= pagepzs(i) Then
       printdata$ = Chr$(27) & "q0" & Space(a(1)) & x_formatx(pzmc(i, j), 14)
       Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)

       printdata$ = Chr$(27) & "q0" & Space(a(2)) & x_formatx(gg(i, j), 3)
       Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)

       printdata$ = Chr$(27) & "q0" & Space(a(3)) & "条"
       Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)

       printdata$ = Chr$(27) & "q0" & Space(a(4)) & x_formatsl(sl(i, j), 7)
       Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)

       printdata$ = Chr$(27) & "q0" & Space(a(5)) & x_formats(dj(i, j), 6)
       Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)

       printdata$ = Chr$(27) & "q0" & Space(a(6)) & x_formats(je(i, j), 11)
       Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)
     Else
       printdata$ = Chr$(27) & "q0" & Space(a(6))
       Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)
     End If
     printdata$ = Chr$(10)
     Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)
    Next j

    r = printset.rowzb '合计
    printdata$ = Chr$(27) & Chr$(65) & Chr$(r)
    Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)
    printdata$ = Chr$(10)
    Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)

    c = printset.colzb
    printdata$ = Chr$(27) & "q0" & Space(c) & x_formatsl(slhj(i), 7)
    Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)
    printset.MoveNext

    r = printset.rowzb '中文合计
    printdata$ = Chr$(27) & Chr$(65) & Chr$(r)
    Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)
    printdata$ = Chr$(10)
    Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)

    c = printset.colzb
    printdata$ = Chr$(27) & "q0" & Space(c) & x_formatx(zwhj(i), 36)
    Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)
    printset.MoveNext

    c = printset.colzb
    printdata$ = Chr$(27) & "q0" & Space(c) & Format$(jehj(i), "#######0.00")
    Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)
    printset.MoveNext

    r = printset.rowzb '开票人
    printdata$ = Chr$(27) & Chr$(65) & Chr$(r)
    Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)
    printdata$ = Chr$(10)
    Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)

    c = printset.colzb
    printdata$ = Chr$(27) & "q0" & Space(c) & x_formatx(kpr, 8)
    Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)
    printset.MoveNext

    zje = 0
    zsl = 0
    For k = 1 To zpage
      zje = zje + jehj(k)
      zsl = zsl + slhj(k)
    Next k
    If i = zpage Then
        If shflag = "是" Then
          bj = "(*)" + Trim(Format$(zje, "#########0.00")) + "  条:" + Trim(Str(zsl))
        Else
            bj = Trim(Format$(zje, "#########0.00")) + "  条:" + Trim(Str(zsl))
        End If
    End If
    c = printset.colzb
    printdata$ = Chr$(27) & "q0" & Space(c) & bj
    Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)
    printset.MoveNext

    r = printset.rowzb '页间隔
    printdata$ = Chr$(27) & Chr$(65) & Chr$(r)
    Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)
    printset.MoveNext
    printdata$ = Chr$(10)
    Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)
  Next i
  r = printset.rowzb '出纸
  For k = 1 To 2
    printdata$ = Chr$(27) & Chr$(65) & Chr$(r)
    Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)
    printdata$ = Chr$(10)
    Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)
  Next k

  printdata$ = Chr$(27) & Chr$(102)
  Call WritePrinter(hPrinter, ByVal printdata$, LenB(StrConv(printdata$, vbFromUnicode)), 0)
  Call EndPagePrinter(hPrinter)
  Call EndDocPrinter(hPrinter)
  Call ClosePrinter(hPrinter)

2002-05-08 15:14:39

点赞只看TA 引用举报 #1得分 0

收起

收藏回复

cmt123

等级：

关注私信 TA的帖子

Java编程思想(Thinking in Java)第四版完整中文高清版: Java编程思想(Thinking in Java)第四版完整中文高清版

Java编程思想第四版源码下载: 最近下载了Thinking in Java （4th）想分享给各位...后来发现CSDN好狗....资源最低3积分....用百度云？？？那还不如用自己的个网站打开下面的网址。点击下载即可!（最好用电脑下载！）...

《JAVA编程思想》第四版 PDF 下载中文版和英文版高清PDF扫描带书签: 转载自：https://www.cnblogs.com/buwuliao/p/8073211.html 一、链接：中文版：https://pan.baidu.com/s/1d07Kp4密码:x2cd ... 文件截图： ...中文版有一页（文件页码548，书籍页码515 ）图像缺...

JAVA编程思想第四版完整下载地址: http://hi.baidu.com/yang1101190/blog/item/beb856c34c47865eb219a875.html ... //: polymorphism/Sandwich.java // Order of constructor c...

java编程思想第4版清晰中文版网盘下载: 下载地址：https://u18103887.ctfile.com/fs/18103887-314580535

Java编程思想完整中文高清版（第四版）: Java编程思想完整中文高清版（第四版），PDF格式文档。

Java编程思想第四版 完整中文版下载: 《Java编程思想第四版》(Thinking in Java (4th Edition))完整中文版下载 电驴上的资源,下载回来看了觉得不错,书签都已经做好了,很方便,现在分享一下! 这段是verycd上的介绍: 本书是全球程序员必备图书...

Java编程思想(第四版)清晰PDF中文完整版: java经典名著,第四版中文完整高清PDF版第一章对象导论第二章一切都是对象

【PDF】Java编程思想第四版完整中文高清版(亲测真实): 初学java，经人推荐购买了java编程思想第四版，后发现看书时间不长，主要因为书本拿着不方便，后上网查找java编程思想4 PDF版，可是很多是一版和二版的PDF，因为要和书本一致，故找了很多，终于找到第四版。...

Tinking in Java(Java编程思想) 第四版全部习题答案: http://greggordon.org/java/tij4/solutions.htm

《On Java 8》中文版，又名《Java 编程思想》中文第五版: 来源：LingCoder/OnJava8 主译: LingCoder 参译: LortSir 校对：nickChenyx E-mail: lingcoder@gmail.com 本书原作者为 [美] Bruce Eckel，即（Thinking in Java 4th Edition,2006）的作者。本书是事实上的 ...

Java编程思想第四版完整中文高清版.pdf: Java编程思想第四版完整中文高清版.pdf百度网盘下载链接：链接：https://pan.baidu.com/s/1o94mjF0 密码：mlds在线预览链接：...

时隔12年，《Java编程思想》(第五版) 来了！: 《Java编程思想》(第四版) - (美)Bruce Eckel 著，07年引入国内，基于jdk 5 编写，光看它在各大电商平台的销量，就知道它这些年在国内有多火。如图，10多年过去了，Bruce Eckel也从小伙子变成了大叔，不过这次...

《On Java 8》中文版，《Java编程思想》第5版: 第四章运算符第五章控制流第六章初始化和清理第七章封装第八章复用第九章多态第十章接口第十一章内部类第十二章集合第十三章函数式编程第十四章流式编程第十五章异常第十六章 ...

java编程思想（第四版）答案: 转：http://greggordon.org/java/tij4/solutions.htm 最近在看think in java 这本书，讲的很不错，里边的习题有的不会，在网上找的答案，收藏起来方便看，大家也可以来看。...

java编程思想第四版 源码下载导入: 百度搜索关键字： mindview

java编程思想 pdf, epub, mobi格式: 从网上费了很大劲儿找到的kindle电子书的资源, 需要的...java编程思想 pdf, epub, mobi格式资源链接：https://pan.baidu.com/s/1uJpW35HCVBoDgbS9JrruQQ 提取码：yfwh 转载于:https://www.cnblogs.com/huangjiab...

JAVA四大名著----今天才知道: 快放假了，项目推迟到年后上线了，现在比较闲，不知道干啥了，闲得无聊，查了下资料，想看看书，结果发现了JAVA四大名著，哈哈。。。。。。。。。。...年后回来读读，先找电子版的看看... Java编程思想（第4版)----Java四

对《Java编程思想》读者的一点建议: 记得刚上大学那会，就在某宝上买了一本影印版的《Java 编程思想》，但由于初学 Java，对编程极度缺乏信心，导致看这本书有一种看天书的感觉。后来，去苏州参加工作的时候把它作为最宝贵的纪念品带了过去。 2014 年回...

java编程思想第四版中net.mindview.util的jar包导入: 在java编程思想第四版中需要使用net.mindview.util包，大家可以直接到http://www.mindviewinc.com/TIJ4/CodeInstructions.html去下载，并按照所在页面的操作进行操作。当然也可以直接点击这里的链接：点击这里下载，...

技术电子书籍总目录，后面持续更新: 技术电子书籍总目录 SpringBoot实战(第4版)清晰版.pdf Java编程思想第四版完整中文高清版.pdf 图解http下载彩色版

java四大名著: Java编程思想（第4版)----Java四大名著----------------Bruce Eckel JAVA 2核心技术卷I：基础知识（原书第8版）---Java四大名著-----Cay Horstmann JAVA 2核心技术卷II：高级特性（原书第8版)----Java四大名著--

java、八大经典书籍，你看过几本？: 《Java从入门到精通(第3版)》从初学者角度出发，通过通俗易懂的语言、丰富多彩的实例，详细介绍了使用Java语言进行程序开发需要掌握的知识。《Java从入门到精通(第3版)》编辑推荐：“软件开发视...

JAVA八大经典书籍，你看过几本？: 《Java从入门到精通(第3版)》从初学者角度出发，通过通俗易懂的语言、丰富多彩的实例，详细介绍了使用Java语言进行程序开发需要掌握的知识。《Java从入门到精通(第3版)》编辑推荐：“软件开发视频大讲堂”丛书系...

《Java编程思想》第5版，已改名《On Java 8》: 现在想提升自己基础的大多会选择被封神的《Java编程思想》，但是目前网上只有java编程思想第四版，看着都很老了不太想看。如果你去github上你会发现其实在2017年 Bruce Eckel（java编程思想原作者）在2017年就发布...

Java编程思想（第4版）【带目录高清中文pdf下载，附源码Jar包】: 放心下载pdf地址： https://u17513197.pipipan.com/fs/17513197-292398474 （pdf） https://u17513197.pipipan.com/fs/17513197-292402597（书中源码） https://u17513197.pipipan.com/fs/17513197-292402578（书...

给学习java web新手们的建议和推荐一些书籍: （申明：这里我不谈首先学习什么面向对象的思想问题，我觉得现实就是这样的，很多时候跟初学者谈这个就是认为设置了很多障碍，思想需要慢慢形成，所以这里不探究）第一，学习技术，最忌讳的就是好高骛远，急躁不安，...

学习Java编程入门书籍: 分享几本java编程入门书籍，文章转自知乎路人甲《Head First Java》《Head First Java》被亚马逊评为十大好书之一。在京东计算机类书籍中热度排名第16位，在Java类书籍中排名第2位。豆瓣评分为8.8分，有百分之54.4...

Java核心技术(卷1) 10th 总结(兼与Java编程思想等对比): 关于Java基础的书，前后看的有四本，包括《Thinking in Java》，《Head First Java》，《Java核心卷》卷一和《Java开发实战经典》(国人写的)。个人感觉，好的书真的是各有各的特点，不好的书只是内容

Java学习：Java程序员必读的经典书籍没有之一，你读过几本？: 身为Java程序员的你可能正在思考平时应该看一些什么书籍来提高自己的能力，那么团长今天就给大家推荐一些我曾经看过的经典书籍。 1.《Java从入门到精通（第3版）》这本书从Java初学者角度出发，通过通俗易懂的...

相关热词 c# 模拟登陆亚马逊 c#设计游戏大鱼吃小鱼 c# dock顺序 vs c#飞机大战游戏编程代码 c# mvc 返回ef c# xml序列化加密 c# zxing生成 c# 关闭时隐藏子窗口 c# 串口数据错乱 c#ui界面设计