| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 696 人关注过本帖
标题:A4 窗体自动插满控件并多页打印??
只看楼主 加入收藏
newsoftware
Rank: 1
等 级:新手上路
帖 子:31
专家分:0
注 册:2017-7-21
结帖率:66.67%
  已结贴   问题点数:20  回复次数:11   
A4 窗体自动插满控件并多页打印??

我想在A4 窗体上自动插满控件,比如BarCodeCtrl1控件,大小固定为3000宽,1300高,但用 Top 或 Left 属性定义位置时,只能纵向或橫向增加插入,不能插满A4幅面,如下:

For i = 1 To 900
Load BarCodeCtrl1(i)
BarCodeCtrl1(i).Top = 1300 + 1300 * i '只能纵向加载
Next

我想自动加载满在A4纸(窗体)大小并打印出来,一页满后,自动插入下一页(窗体)并打印,不知怎样才能实现? 望大神指教。
2018-04-25 23:16
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
  得分:7 
以下是引用newsoftware在2018-4-25 23:16:40的发言:


我想在A4 窗体上自动插满控件,比如BarCodeCtrl1控件,大小固定为3000宽,1300高,但用 Top 或 Left 属性定义位置时,只能纵向或橫向增加插入,不能插满A4幅面,如下:

For i = 1 To 900
Load BarCodeCtrl1(i)
BarCodeCtrl1(i).Top = 1300 + 1300 * i '只能纵向加载
Next

我想自动加载满在A4纸(窗体)大小并打印出来,一页满后,自动插入下一页(窗体)并打印,不知怎样才能实现? 望大神指教。

没见你用left

无知
2018-04-26 00:22
newsoftware
Rank: 1
等 级:新手上路
帖 子:31
专家分:0
注 册:2017-7-21
  得分:0 
回复 2楼 Artless
亲,如果同时用left和top,就变成了对角线加裁了。。。。

BarCodeCtrl1(i).Top = 1300 + 1300 * i
BarCodeCtrl1(i).Left = 3000 + 3000 * i
2018-04-26 18:26
wds1
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:36
帖 子:347
专家分:1840
注 册:2016-3-10
  得分:7 
假设横竖为8*6=48个标签
For i = 0 To 47
 if i>0 then Load BarCodeCtrl1(i)'假设第一个数组标签已创建,后续的程序创建
 BarCodeCtrl1(i).left =  1000+3100 * (i mod 8) '横向控制,两个标签横向间隔100
 BarCodeCtrl1(i).top =  1000+1400 *(i \ 8)'纵向控制,两个标签纵向间隔100
next i

我建议你还是自己动动脑。
2018-04-26 19:36
newsoftware
Rank: 1
等 级:新手上路
帖 子:31
专家分:0
注 册:2017-7-21
  得分:0 
回复 4楼 wds1

的确如此,关键是逻辑想不到.

那打印问题应该如何解决呢?感谢。
2018-04-27 23:13
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:245
帖 子:4385
专家分:26889
注 册:2008-10-15
  得分:7 
你在窗体上排满了,那就使用 打印窗体 命令吧!

Form1.PrintForm          '在其他窗口执行开始打印

Me.PrintForm             '在本窗口内执行


授人于鱼,不如授人于渔
早已停用QQ了
2018-04-28 09:29
newsoftware
Rank: 1
等 级:新手上路
帖 子:31
专家分:0
注 册:2017-7-21
  得分:0 
以下是引用风吹过b在2018-4-28 09:29:15的发言:

你在窗体上排满了,那就使用 打印窗体 命令吧!

Form1.PrintForm          '在其他窗口执行开始打印

Me.PrintForm             '在本窗口内执行



问题是有很多标签(数量是变量),我想一页加载满后,自动插入下一页(窗体)并打印或自动保存为PDF文件也行,不知怎样才能实现?谢谢。
2018-04-28 23:39
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:245
帖 子:4385
专家分:26889
注 册:2008-10-15
  得分:0 
排满一页,打印,然后再重新修改 条形码内容,再重新打印。
这样循环就是了。

打印成pdf ,装个虚拟打印机打印成pdf。

授人于鱼,不如授人于渔
早已停用QQ了
2018-04-29 09:06
newsoftware
Rank: 1
等 级:新手上路
帖 子:31
专家分:0
注 册:2017-7-21
  得分:0 
以下是引用风吹过b在2018-4-29 09:06:30的发言:

排满一页,打印,然后再重新修改 条形码内容,再重新打印。
这样循环就是了。

打印成pdf ,装个虚拟打印机打印成pdf。



我的条码可以一次全部修改完成(比如2000个),一页页修改打印太麻烦了,我想一次过就完成全部的打印,不知要怎样实现???
2018-04-29 21:11
newsoftware
Rank: 1
等 级:新手上路
帖 子:31
专家分:0
注 册:2017-7-21
  得分:0 
======
2018-05-01 23:41







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

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