VB怎样并排打印？

[broker_chengchaoji]

我想编一个证件自动生成的程序，但是我们打印用的是A4的纸，一张纸上需要要并排打印两个不同人的证件，怎样设计报表或是有其它什么好方法？人员名单已经在EXCL里了.

[wangsitao]

用Printer对象自己写代码
例子
Private Sub Form_Click ()
Dim HWidth, HHeight, I, Msg ' 変数を宣言します。
On Error GoTo ErrorHandler ' エラー処理を設定します。
SMsg = "このテキストは、"
EMsg = "ページ目に印刷されます。"
For I = 1 To 2 ' 2 枚セットします。
' 文字列の幅を半分に設定します。
HWidth = Printer.TextWidth(Msg) / 2
' 文字列の高さを半分に設定します。
HHeight = Printer.TextHeight(Msg) /2
Printer.CurrentX = Printer.ScaleWidth / 2 - HWidth
Printer.CurrentY = Printer.ScaleHeight / 2 - HHeight
Printer.Print Msg & Printer.Page & "." ' 印刷します。
Printer.NewPage ' 改ページします。
Next I
Printer.EndDoc ' 印刷を終了します。
Msg = " プリンタへ 2 ページにわたり、"
Msg = Msg & "用紙の中央にテキストを送りました。"
MsgBox Msg ' 結果を表示します。
Exit Sub
ErrorHandler:
MsgBox "プリンタに問題があります。"
Exit Sub
End Sub

[heyijpn]

用数据分割法！