怎样设置PrintForm的页边距

Dim BeginPage, EndPage, NumCopies, i ' 设置“取消”为 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 i

Printer.PaperSize = vbPRPSA4
Printer.ScaleLeft = -((Printer.Width - PForm.Width) / 2)
Printer.ScaleTop = -((Printer.Height - PForm.Height) _
        / 2)
Printer.Orientation = vbPRORLandscape
PrintForm

Printer.EndDoc '打印结束
执行后打印机无反映
请高人指点

补充：VB ,  基础类