| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
买学问 - 大牛一对一辅导,有问必答买学问 - 专业的付费知识问答平台
共有 1501 人关注过本帖
标题:能不能实现打印?
取消只看楼主 加入收藏
dsasada
Rank: 1
等 级:新手上路
帖 子:54
专家分:3
注 册:2018-3-30
结帖率:70%
  已结贴   问题点数:20  回复次数:14   
能不能实现打印?
用vb能不能实现定位打印,窗口有2个标签和1个编辑框,能不能把标签和编辑框内容打印在打印纸的格子上
怎么能实现这种功能?
2018-04-09 09:44
dsasada
Rank: 1
等 级:新手上路
帖 子:54
专家分:3
注 册:2018-3-30
  得分:0 
回复 2楼 风吹过b
有没有打印代码学习一下?
2018-04-09 10:34
dsasada
Rank: 1
等 级:新手上路
帖 子:54
专家分:3
注 册:2018-3-30
  得分:0 
回复 4楼 ZHRXJR
标签和文本框打印的位置不在指定的位置,怎么调整?
2018-04-15 23:16
dsasada
Rank: 1
等 级:新手上路
帖 子:54
专家分:3
注 册:2018-3-30
  得分:0 
回复 4楼 ZHRXJR
谢谢!!!

[此贴子已经被作者于2018-4-16 20:38编辑过]

2018-04-16 20:22
dsasada
Rank: 1
等 级:新手上路
帖 子:54
专家分:3
注 册:2018-3-30
  得分:0 
回复 6楼 风吹过b
想学vb有没有入门的书介绍一下?
2018-04-16 20:43
dsasada
Rank: 1
等 级:新手上路
帖 子:54
专家分:3
注 册:2018-3-30
  得分:0 
回复 4楼 ZHRXJR
打印方向是纵向改成横向,代码怎么写
按照这个方法打印的字体不是很清楚,还有标签后面的点(应该是窗体上的点)和文本框的半个框子打印出来了

[此贴子已经被作者于2018-4-17 13:46编辑过]

2018-04-17 11:14
dsasada
Rank: 1
等 级:新手上路
帖 子:54
专家分:3
注 册:2018-3-30
  得分:0 
回复 6楼 风吹过b
请问你这种方法打印清楚吗?
2018-04-17 13:44
dsasada
Rank: 1
等 级:新手上路
帖 子:54
专家分:3
注 册:2018-3-30
  得分:0 
Printer.PaperSize = vbPRPSA4
Printer.Orientation = vbPRORLandscape

Printer 对象常数  

打印机颜色模式  
常数 值 描述  
vbPRCMMonochrome 1 单色输出  
vbPRCMColor 2 彩色输出  

双面打印  
常数 值 描述  
vbPRDPSimplex 1 单面打印  
vbPRDPHorizontal 2 双面水平打印  
vbPRDPVertical 3 双面垂直打印  

打印方向  
常数 值 描述  
vbPRORPortrait 1 文档打印以纸的窄边作顶部  
vbPRORLandscape 2 文档打印以纸的宽边作顶部  

打印质量  
常数 值 描述  
vbPRPQDraft -1 草稿打印质量  
vbPRPQLow -2 低级打印质量  
vbPRPQMedium -3 中等打印质量  
vbPRPQHigh -4 高级打印质量  

PaperBin 属性  
常数 值 描述  
vbPRBNUpper 1 从上层纸盒进纸  
vbPRBNLower 2 从下层纸盒进纸  
vbPRBNMiddle 3 从中间纸盒进纸  
vbPRBNManual 4 等待手动插入每页纸  
vbPRBNEnvelope 5 从信封进纸器进纸  
vbPRBNEnvManual 6 从信封进纸器进纸;但要等待手动插入  
vbPRBNAuto 7 (缺省方式)从当前缺省纸盒进纸  
vbPRBNTractor 8 从拖拉进纸器供纸  
vbPRBNSmallFmt 9 从小型进纸器进纸  
vbPRBNLargeFmt 10 从大型纸盒进纸  
vbPRBNLargeCapacity 11 从大容量进纸器进纸  
vbPRBNCassette 14 从附加的卡式纸盒进纸  


PaperSize 属性  
常数 值 描述  
vbPRPSLetter 1 信笺, 8 1/2 x 11 英寸  
vbPRPSLetterSmall 2 +A611 小型信笺, 8 1/2 x 11 英寸  
vbPRPSTabloid 3 小型报, 11 x 17 英寸  
vbPRPSLedger 4 分类帐, 17 x 11 英寸  
vbPRPSLegal 5 法律文件, 8 1/2 x 14 英寸  
vbPRPSStatement 6 声明书,5 1/2 x 8 1/2 英寸  
vbPRPSExecutive 7 行政文件,7 1/2 x 10 1/2 英寸  
vbPRPSA3 8 A3, 297 x 420 mm  
vbPRPSA4 9 A4, 210 x 297 mm  
vbPRPSA4Small 10 A4小号, 210 x 297 mm  
vbPRPSA5 11 A5, 148 x 210 mm  
vbPRPSB4 12 B4, 250 x 354 mm  
vbPRPSB5 13 B5, 182 x 257 mm  
vbPRPSFolio 14 对开本, 8 1/2 x 13 英寸  
vbPRPSQuarto 15 四开本, 215 x 275 mm  
vbPRPS1&H14 16 10 x 14 英寸  
vbPRPS11x17 17 11 x 17 英寸  
vbPRPSNote 18 便条,8 1/2 x 11 英寸  
vbPRPSEnv9 19 #9 信封, 3 7/8 x 8 7/8 英寸  
vbPRPSEnv10 20 #10 信封, 4 1/8 x 9 1/2 英寸  
vbPRPSEnv11 21 #11 信封, 4 1/2 x 10 3/8 英寸  
vbPRPSEnv12 22 #12 信封, 4 1/2 x 11 英寸  
vbPRPSEnv14 23 #14 信封, 5 x 11 1/2 英寸  
vbPRPSCSheet 24 C 尺寸工作单  
vbPRPSDSheet 25 D 尺寸工作单  
vbPRPSESheet 26 E 尺寸工作单  
vbPRPSEnvDL 27 DL 型信封, 110 x 220 mm  
vbPRPSEnvC3 29 C3 型信封, 324 x 458 mm  
vbPRPSEnvC4 30 C4 型信封, 229 x 324 mm  
vbPRPSEnvC5 28 C5 型信封, 162 x 229 mm  
vbPRPSEnvC6 31 C6 型信封, 114 x 162 mm  
vbPRPSEnvC65 32 C65 型信封,114 x 229 mm  
vbPRPSEnvB4 33 B4 型信封, 250 x 353 mm  
vbPRPSEnvB5 34 B5 型信封,176 x 250 mm  
vbPRPSEnvB6 35 B6 型信封, 176 x 125 mm  
vbPRPSEnvItaly 36 信封, 110 x 230 mm  
vbPRPSEnvMonarch 37 信封大王, 3 7/8 x 7 1/2 英寸  
vbPRPSEnvPersonal 38 信封, 3 5/8 x 6 1/2 英寸  
vbPRPSFanfoldUS 39 U.S. 标准复写簿, 14 7/8 x 11 英寸  
vbPRPSFanfoldStdGerman 40 德国标准复写簿, 8 1/2 x 12 英寸  
vbPRPSFanfoldLglGerman 41 德国法律复写簿, 8 1/2 x 13 英寸  
vbPRPSUser 256 用户定义

[此贴子已经被作者于2018-4-23 11:41编辑过]

2018-04-17 14:33
dsasada
Rank: 1
等 级:新手上路
帖 子:54
专家分:3
注 册:2018-3-30
  得分:0 
回复 12楼 风吹过b
谢谢!!!
2018-04-18 11:42
dsasada
Rank: 1
等 级:新手上路
帖 子:54
专家分:3
注 册:2018-3-30
  得分:0 
Option Explicit
    Dim X As Long
    Dim y As Long
    Dim fnt As Variant
    Dim txt As String
    Dim dy As Variant
     
Public Function prnt(X As Variant, y As Variant, fnt As Variant, txt As Variant)
    Printer.CurrentX = X
    Printer.CurrentY = y
    Printer.FontSize = fnt
    Printer.Print txt
End Function
 
Private Sub Command1_Click()
    Printer.ScaleMode = 6 '以mm定位
    Printer.CurrentX = 10
    Printer.CurrentY = 20
    fnt = 12
    txt = "YD(0)"
    dy = prnt(X, y, fnt, txt)
    Printer.EndDoc
End Sub
2018-04-19 13:12







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.054421 second(s), 9 queries.
Copyright©2004-2019, BCCN.NET, All Rights Reserved