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

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

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

没见你用left

亲，如果同时用left和top，就变成了对角线加裁了。。。。

BarCodeCtrl1(i).Top = 1300 + 1300 * i
BarCodeCtrl1(i).Left = 3000 + 3000 * i

假设横竖为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

我建议你还是自己动动脑。

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

那打印问题应该如何解决呢？感谢。

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

Form1.PrintForm          '在其他窗口执行开始打印
或
Me.PrintForm             '在本窗口内执行

问题是有很多标签（数量是变量），我想一页加载满后，自动插入下一页（窗体）并打印或自动保存为PDF文件也行，不知怎样才能实现？谢谢。

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

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

我的条码可以一次全部修改完成（比如2000个），一页页修改打印太麻烦了，我想一次过就完成全部的打印，不知要怎样实现？？？

======