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

授人于鱼,不如授人于渔
早已停用QQ了
2018-04-09 09:57
dsasada
Rank: 1
等 级:新手上路
帖 子:52
专家分:3
注 册:2018-3-30
  得分:0 
回复 2楼 风吹过b
有没有打印代码学习一下?
2018-04-09 10:34
ZHRXJR
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:62
帖 子:682
专家分:3701
注 册: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
等 级:新手上路
帖 子:52
专家分:3
注 册:2018-3-30
  得分:0 
回复 4楼 ZHRXJR
标签和文本框打印的位置不在指定的位置,怎么调整?
2018-04-15 23:16
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:209
帖 子:4203
专家分:25787
注 册: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了
2018-04-16 08:39
dsasada
Rank: 1
等 级:新手上路
帖 子:52
专家分:3
注 册:2018-3-30
  得分:0 
回复 4楼 ZHRXJR
谢谢!!!

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

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

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

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







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

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