如何设置打印区域？我看不懂李洪根的程序

请看这段程序，如何设置打印区区域
http://jacky.zdedu.org/demo2.rar
请注意：程序中有一个摸块是李洪根提供的用于设置纸张大小的，我不知道如何用！请指教！

解决方案 »

  1.   

    将函数定义为：
    Function SetDefaultPrinterOrientation(ByVal eOrientation As _
        PrinterOrientationConstants, iDmpaper As Integer，byval iDmpaperLength as long,byval iDmpaperWidth as long) As Boolean然后将下面两句前面的注释去掉
    '   .dmPaperLength = iDmpaperLength
    '   .dmPaperWidth = iDmpaperWidth
    没细看，也许不对
      

  2.   

    那段程序是没有错的，
    '*******************'
    ' iDmpaper值   纸张 '
    ' 9            A4   '
    ' 11           A5   '
    ' 13           B5   '
    '*******************'在窗体中调用为：SetDefaultPrinterOrientation  1,9
      

  3.   

    自定义纸张：http://support.microsoft.com/default.aspx?scid=kb;EN-US;282474
      

  4.   

    那么，假如这是一个自定义纸张呢？这个参数又该如何写
    SetDefaultPrinterOrientation  ???