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

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

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

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

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

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

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

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

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

======