vsprint8.ocx 如何用？

Question

各位：
    我在窗体form1 上布置了 一个 vsflexgrid8.ocx 控件来显示数据。
    请问如何使用  vsprint8 来打印 vsfex8 中的数据？？？

Answer 1

With GridPrint  '<-vsprint8
 .Height = FmCit.Grid.Height  'Grid  <-vsfex8 
 .Width = FmCity.Grid.Width
 .HdrFontName = "楷体_GB2312"
 .HdrFontSize = 16
 .MarginLeft = 600
 .MarginRight = 100
 .MarginTop = 2400 .Header = "|xxxxxxxxxxxxx表" & vbCrLf & Format(Date, "yyyy年mm月dd日")
        .PaperSize = pprA4 '纸张大小
        .Orientation = orLandscape '纸张横向
        .StartDoc
        .Zoom = 50 '显示比例
        .RenderControl = FmCity.Grid.hwnd  '把FmCity网格内容传递给GridPrint显示
        .EndDoc
 End With

Answer 2

chendjin(走出Code...) 及各位：
我想把 3  楼的代码放在以下 sub 中使用，我初步编写了一点
Sub dataprint(pa, DD As String, si As Integer, zo As Integer)
   With GridPrint  '<-vsprint8
        '其他代码没问题，已经通过，但以下代码还有问题
        .HdrFontSize = si   '16   
        .PaperSize = pa   'pprA4 '纸张大小
   End With
End Sub以上 2  个参数无法赋值 ？？？
注：dataprint（）中的 4  个参数是通过“打印设置”窗体上 的 combox 来选择获取的。到底该怎么设置？？？