| 网站首页 | 业界新闻 | 群组 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 341 人关注过本帖
标题:能不能实现打印?
只看楼主 收藏
dsasada
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2018-3-30
结帖率:66.67%
  已结贴   问题点数:20  回复次数:25   
能不能实现打印?
用vb能不能实现定位打印,窗口有2个标签和1个编辑框,能不能把标签和编辑框内容打印在打印纸的格子上
怎么能实现这种功能?
2018-04-09 09:44
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:199
帖 子:4137
专家分:25432
注 册:2008-10-15
  得分:0 
VB6 的 定位打印,就相当于 在一个 PictureBOX 上作图。
在 PictureBOX 如何定位,如何显示,那么就照样操作打印机。
绘制完成后,发送打印就可以了。
注意,坐标不要超过设定的纸张大小,否则会导致换页。

授人于鱼,不如授人于渔
早已停用QQ了
2018-04-09 09:57
dsasada
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2018-3-30
  得分:0 
回复 2楼 风吹过b
有没有打印代码学习一下?
2018-04-09 10:34
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:57
帖 子:604
专家分:3365
注 册:2016-5-10
  得分:10 
一个笨方法,但非常实用。
单独作一个打印窗体(假定窗体名称为Form2),设置:
程序代码:

Me.BorderStyle = 0
Me.BackColor = &HFFFFFF
Me.Height = 13000    '打印纸高度,以缇为单位,不能以像素为单位,以A4为例
me.Width = 11900     '打印纸宽度,以缇为单位,不能以像素为单位,以A4为例
'
在Form2的适当位置放置你需要的标签和编辑框(应该是文本框吧)
'
在需要打印的窗体(假如窗体名称为Form1)放置一个按钮,在按钮单击事件中
On Error Resume Next                          '如果发生错误退出此过程
Form2.Show                                    '加载打印窗体 Form2,注意不能关闭Form1窗体!
'
在Form2窗体的Form_Load中编写代码:
Label1.Caption = Form1.Label1.Caption         'Form1中的Label1.Caption数据传递给Form2的Label1.Caption
Label2.Caption = Form1.Label2.Caption         'Form1中的Label2.Caption数据传递给Form2的Label2.Caption
Text1.Text = Form1.Text1.Text                 'Form1中的Text1.Text数据传递给Form2的Text1.Text
Me.PrintForm                                  '开始打印
Unload Me                                     '关闭打印窗体Form2

打印窗体加载到关闭非常快,几乎看不出来打印窗体Form2的界面。只要你打印窗体设计合适,打印出来的效果还是很不错的。

QQ    2653043392
2018-04-10 10:11
dsasada
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2018-3-30
  得分:0 
回复 4楼 ZHRXJR
标签和文本框打印的位置不在指定的位置,怎么调整?
2018-04-15 23:16
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:199
帖 子:4137
专家分:25432
注 册:2008-10-15
  得分:10 
使用 move 方法 移动啊!
或者使用 left ,top 属性进行移动

form2.Label1.Caption.move 100,200

form2.Label1.Caption.left=200
form2.Label1.Caption.top=100

这都是基础的东西啊!
包括在 PictureBOX 上定位显示文字,画线、点、圆,都是基本的操作。

授人于鱼,不如授人于渔
早已停用QQ了
7 天前 08:39
dsasada
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2018-3-30
  得分:0 
回复 4楼 ZHRXJR
谢谢!!!

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

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

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

6 天前 11:14
dsasada
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2018-3-30
  得分:0 
回复 6楼 风吹过b
请问你这种方法打印清楚吗?
6 天前 13:44







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

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