打印

Question

Private Sub Command1_Click ()
   Dim BeginPage, EndPage, NumCopies, i
   '将 Cancel 设置成 True。
   CommonDialog1.CancelError = True
   On Error GoTo ErrHandler
   '显示“打印”对话框。
   CommonDialog1.ShowPrinter
   '从对话框中获取用户选定数值。
   BeginPage   = CommonDialog1.FromPage
   EndPage       = CommonDialog1.ToPage 
   NumCopies   = CommonDialog1.Copies
   For i = 1 to NumCopies   
   '在此放置代码，将数据发送到打印机。
   Next
   Exit Sub
ErrHandler:
   '用户按下了“取消”按钮。
   Exit Sub
End SubFor i = 1 to NumCopies   
   '在此放置代码，将数据发送到打印机。
Next
这里应放置什么代码？