modprint.bas

用VB开发的巡检系统基于MAPINFo用VB开发的巡检系统基于MAPINFo很好的

Attribute VB_Name = "modPrint"
Option Explicit

'//设置报表方向
Sub SetOriginalSettings(ByVal tmpVP As VSPrinter)
    'lblX.Visible = False
    With tmpVP
        .ToolTipText = ""
    
        ' font
        .FontName = "Arial"
        .FontBold = False
        .FontItalic = False
        .FontUnderline = False
        .FontSize = 11
        
        ' text
        .TextColor = 0
        .TextAngle = 0
        .TextAlign = taLeftMiddle
        
        'spacing
        .IndentLeft = 0
        .IndentFirst = 0
        .IndentRight = 0
        .IndentTab = 720
        .SpaceAfter = 130
        
        'Margins
        .MarginBottom = 1000 '1440
        .MarginFooter = 0
        .MarginLeft = 1200 '1440
        .MarginHeader = 0
        .MarginRight = 1200 '1440
        .MarginTop = 1000 '1440
        
        'layout
        .PageBorder = pbTopBottom
        .Header = ""
        .HdrColor = &H0&
        .Footer = ""
        .Columns = 1

        'drawing
        .PenColor = vbBlack
        .PenStyle = psSolid
        .PenWidth = 1
        .BrushColor = &H8080FF
        .BrushStyle = bsSolid
    
        ' table
        .TableBorder = tbAll
    
        .X1 = 0
        .Y1 = 0
        .X2 = 0
        .Y2 = 0
    End With
End Sub