如何使用printer实现类似word的打印设置功能？

     private sub cmdok_click（)
          printer.scalemode = vbmillimeters
          printer.colormode = vbprcmmonochrome  ' 单色输出

          printer.height = val（txtpaperheight.text) * 10
          printer.width = val（txtpaperwidth.text) * 10
          
          if opth.value = true then
             printer.orientation = 1               '纵向打印
          end if
          
          if optv.value = true then
             printer.orientation = 2               '橫向打印
          end if

          printer.copies = val（txtpapercopies.text)
          
          printer.scalemode = vbmillimeters
          
          printer.scaleleft = val（txtleftmargin.text) * 10
          printer.scaletop = val（txttopmargin.text) * 10
          
          'printer.scalewidth = 291
          printer.scalewidth = printer.width - val（txtrightmargin.text) * 10 - printer.scaleleft
          'printer.height = val（txtbottommargin.text) * 10 - printer.scaletop
          'printer.height = val（txtbottommargin.text) * 10 - printer.scaletop
          
          printer.currentx = 0
          printer.currenty = 0
          
          printer.fontbold = false
          printer.line （1, 0)-（89, 0)
          printer.line （1, 0)-（1, 53)
          printer.line （89, 0)-（89, 53)
          printer.line （1, 53)-（89, 53)
          printer.fontsize = 14
          printer.font = "宋体"
          printer.currentx = 7
          printer.currenty = 2
          printer.print "xx学校成绩通知"
          printer.fontsize = 16
          printer.currentx = 5
          printer.print "成绩通知单"
          printer.fontsize = 14
          printer.print " "
          printer.currentx = 5
          printer.print "班 级："
          printer.currentx = 5
          printer.currenty = printer.currenty + 2
          printer.print "姓 名："
          printer.currentx = 5
          printer.currenty = printer.currenty + 2
          printer.print "成 绩："
          printer.enddoc
     end sub