vsprint打印实例

vsprint打印实例(3)         End If
        iPage = 1 '设置当前页面为第一页面
        iRow = 0 '设置当前行位置为空
        '
        With printCtl
            .Orientation = orLandscape '设置横向打印
            .TableBorder = tbAll
            '设置页面四边的边距
            .MarginTop = 1400
            .MarginBottom = 1400
            .MarginLeft = 1400
            .MarginRight = 1400
            '设置字体名字
'*************************************开始打印文档的内容*************************************            .StartDoc
            .StartDoc
            .TablePen = 20
            For iPage = 1 To pages
                 '设置标题
                .FontSize = 14
                .FontBold = True
                .TextAlign = taCenterMiddle
                .Paragraph = str_title
                .Paragraph = ""