pageview.ctl

AddPrintPreviewtoVBV2 增加打印预览的功能

        Call LogStackItem("Get MouseZoom")
    #End If

    MouseZoom = m_enum_MouseZoom
End Property
Property Let MouseZoom(x As MouseZoomConstants)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let MouseZoom")
    #End If

    m_enum_MouseZoom = x
    Call PropertyChanged("MouseZoom")
End Property

Property Get Orientation() As OrientationConstants
Attribute Orientation.VB_Description = "Returns or sets the paper orientation."
Attribute Orientation.VB_MemberFlags = "400"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get Orientation")
    #End If

    Orientation = m_enum_Orientation
End Property
Property Let Orientation(x As OrientationConstants)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let Orientation")
    #End If

    m_enum_Orientation = x
    m_typ_DevMode.dmOrientation = x
    Call pUpdatePageMargins
    Call PropertyChanged("Orientation")
End Property

Property Get PageBorder() As PageBorderConstants
Attribute PageBorder.VB_Description = "Returns or sets the type of border to draw around each page."
Attribute PageBorder.VB_ProcData.VB_Invoke_Property = ";Appearance"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get PageBorder")
    #End If

    PageBorder = m_enum_PageBorder
End Property
Property Let PageBorder(x As PageBorderConstants)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let PageBorder")
    #End If

    m_enum_PageBorder = x
    Call PropertyChanged("PageBorder")
End Property

Property Get PageHeight() As Long
Attribute PageHeight.VB_Description = "Returns or sets the height of the printable area on the page, in twips"
Attribute PageHeight.VB_MemberFlags = "400"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get PageHeight")
    #End If

    PageHeight = m_lng_PageHeight
End Property
Property Let PageHeight(x As Long)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let PageHeight")
    #End If

    m_lng_PageHeight = x
    Call PropertyChanged("PageHeight")
End Property

Property Get PageWidth() As Long
Attribute PageWidth.VB_Description = "Returns or sets the width of the printable area on the page, in twips"
Attribute PageWidth.VB_MemberFlags = "400"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get PageWidth")
    #End If

    PageWidth = m_lng_PageWidth
End Property
Property Let PageWidth(x As Long)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let PageWidth")
    #End If

    m_lng_PageWidth = x
    Call PropertyChanged("PageWidth")
End Property

Property Get PaperBin() As PaperBinConstants
Attribute PaperBin.VB_Description = "Returns or sets the paper bin to use."
Attribute PaperBin.VB_MemberFlags = "400"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get PaperBin")
    #End If

    PaperBin = m_enum_PaperBin
End Property
Property Let PaperBin(x As PaperBinConstants)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let PaperBin")
    #End If

    Printer.PaperBin = x
    m_enum_PaperBin = Printer.PaperBin
    Call PropertyChanged("PaperBin")
End Property

Property Get PaperBorderColor() As OLE_COLOR
Attribute PaperBorderColor.VB_Description = "Returns or sets the color used for the paper border"
Attribute PaperBorderColor.VB_ProcData.VB_Invoke_Property = ";Appearance"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get PaperBorderColor")
    #End If

    PaperBorderColor = shpPaperBorder.BorderColor
End Property
Property Let PaperBorderColor(x As OLE_COLOR)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let PaperBorderColor")
    #End If

    shpPaperBorder.BorderColor = x
    Call PropertyChanged("PaperBorderColor")
End Property

Property Get PaperBorderWidth() As Integer
Attribute PaperBorderWidth.VB_Description = "Returns or sets the line width for the paper border."
Attribute PaperBorderWidth.VB_ProcData.VB_Invoke_Property = ";Appearance"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get PaperBorderWidth")
    #End If

    PaperBorderWidth = shpPaperBorder.BorderWidth
End Property
Property Let PaperBorderWidth(x As Integer)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let PaperBorderWidth")
    #End If

    If x <= 0 Then Exit Property
    shpPaperBorder.BorderWidth = x
    Call PropertyChanged("PaperBorderWidth")
End Property

Property Get PaperHeight() As Long
Attribute PaperHeight.VB_Description = "Returns or sets the height of a custom paper size, in twips."
Attribute PaperHeight.VB_MemberFlags = "400"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get PaperHeight")
    #End If

    PaperHeight = m_lng_PaperHeight
End Property
Property Let PaperHeight(x As Long)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let PaperHeight")
    #End If

    m_lng_PaperHeight = x
    m_typ_PageSetupDlg.ptPaperSize.Y = pConvertTwipsToPrinterUnits(x)
    Call PropertyChanged("PaperHeight")
End Property

Property Get PaperShadowBorderStyle() As BorderStyleConstants
Attribute PaperShadowBorderStyle.VB_Description = "Returns or sets the line style for border of the Paper Shadow."
Attribute PaperShadowBorderStyle.VB_ProcData.VB_Invoke_Property = ";Appearance"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get PaperShadowBorderStyle")
    #End If

    PaperShadowBorderStyle = picPageShadow.BorderStyle
End Property
Property Let PaperShadowBorderStyle(x As BorderStyleConstants)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let PaperShadowBorderStyle")
    #End If

    picPageShadow.BorderStyle = x
    Call PropertyChanged("PaperShadowBorderStyle")
End Property

Property Get PaperShadowColor() As OLE_COLOR
Attribute PaperShadowColor.VB_Description = "Returns or sets the color of the Paper Shadow."
Attribute PaperShadowColor.VB_ProcData.VB_Invoke_Property = ";Appearance"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get PaperShadowColor")
    #End If

    PaperShadowColor = picPageShadow.BackColor
End Property
Property Let PaperShadowColor(x As OLE_COLOR)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let PaperShadowColor")
    #End If

    picPageShadow.BackColor = x
    Call PropertyChanged("PaperShadowColor")
End Property

Property Get PaperShadowOffset() As Integer
Attribute PaperShadowOffset.VB_Description = "Returns or sets the distance (twips) the shadow if offset from the paper in the X and Y-axis."
Attribute PaperShadowOffset.VB_ProcData.VB_Invoke_Property = ";Appearance"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get PaperShadowOffset")
    #End If

    PaperShadowOffset = m_int_PaperShadowOffset
End Property
Property Let PaperShadowOffset(x As Integer)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let PaperShadowOffset")
    #End If

    m_int_PaperShadowOffset = x
    Call picWorkspace_Resize
    Call PropertyChanged("PaperShadowOffset")
End Property

Property Get PaperSize() As PaperSizeConstants
Attribute PaperSize.VB_Description = "Returns or sets a standard paper size."
Attribute PaperSize.VB_MemberFlags = "400"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get PaperSize")
    #End If

    PaperSize = m_enum_PaperSize
End Property
Property Let PaperSize(x As PaperSizeConstants)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let PaperSize")
    #End If

    m_enum_PaperSize = x
    m_typ_DevMode.dmPaperSize = x

    Select Case x
        Case psLetter    'Letter, 8 1/2 x 11 in.
            m_typ_PageSetupDlg.ptPaperSize.x = pConvertInchesToPrinterUnits(8.5)
            m_typ_PageSetupDlg.ptPaperSize.Y = pConvertInchesToPrinterUnits(11)
        Case psLetterSmall    'Letter Small, 8 1/2 x 11 in.
            m_typ_PageSetupDlg.ptPaperSize.x = pConvertInchesToPrinterUnits(8.5)
            m_typ_PageSetupDlg.ptPaperSize.Y = pConvertInchesToPrinterUnits(11)
        Case psTabloid    'Tabloid, 11 x 17 in.
            m_typ_PageSetupDlg.ptPaperSize.x = pConvertInchesToPrinterUnits(11)
            m_typ_PageSetupDlg.ptPaperSize.Y = pConvertInchesToPrinterUnits(17)
        Case psLedger    'Ledger, 17 x 11 in.
            m_typ_PageSetupDlg.ptPaperSize.x = pConvertInchesToPrinterUnits(17)
            m_typ_PageSetupDlg.ptPaperSize.Y = pConvertInchesToPrinterUnits(11)
        Case psLegal    'Legal, 8 1/2 x 14 in.
            m_typ_PageSetupDlg.ptPaperSize.x = pConvertInchesToPrinterUnits(8.5)
            m_typ_PageSetupDlg.ptPaperSize.Y = pConvertInchesToPrinterUnits(14)
        Case psStatement    'Statement, 5 1/2 x 8 1/2 in.
            m_typ_PageSetupDlg.ptPaperSize.x = pConvertInchesToPrinterUnits(5.5)
            m_typ_PageSetupDlg.ptPaperSize.Y = pConvertInchesToPrinterUnits(8.5)
        Case psExecutive    'Executive, 7 1/2 x 10 1/2 in.
            m_typ_PageSetupDlg.ptPaperSize.x = pConvertInchesToPrinterUnits(7.5)
            m_typ_PageSetupDlg.ptPaperSize.Y = pConvertInchesToPrinterUnits(10.5)
        Case psA3    'A3, 297 x 420 mm
            m_typ_PageSetupDlg.ptPaperSize.x = pConvertInchesToPrinterUnits(ScaleX(297, vbMillimeters, vbInches))
            m_typ_PageSetupDlg.ptPaperSize.Y = pConvertInchesToPrinterUnits(ScaleY(420, vbMillimeters, vbInches))
        Case psA4    'A4, 210 x 297 mm
            m_typ_PageSetupDlg.ptPaperSize.x = pConvertInchesToPrinterUnits(ScaleX(210, vbMillimeters, vbInches))
            m_typ_PageSetupDlg.ptPaperSize.Y = pConvertInchesToPrinterUnits(ScaleY(297, vbMillimeters, vbInches))
        Case psA4Small    'A4 Small, 210 x 297 mm
            m_typ_PageSetupDlg.ptPaperSize.x = pConvertInchesToPrinterUnits(ScaleX(210, vbMillimeters, vbInches))
            m_typ_PageSetupDlg.ptPaperSize.Y = pConvertInchesToPrinterUnits(ScaleY(297, vbMillimeters, vbInches))
        Case psA5    'A5, 148 x 210 mm
            m_typ_PageSetupDlg.ptPaperSize.x = pConvertInchesToPrinterUnits(ScaleX(148, vbMillimeters, vbInches))
            m_typ_PageSetupDlg.ptPaperSize.Y = pConvertInchesToPrinterUnits(ScaleY(210, vbMillimeters, vbInches))
        Case psB4    'B4, 250 x 354 mm
            m_typ_PageSetupDlg.ptPaperSize.x = pConvertInchesToPrinterUnits(ScaleX(250, vbMillimeters, vbInches))
            m_typ_PageSetupDlg.ptPaperSize.Y = pConvertInchesToPrinterUnits(ScaleY(354, vbMillimeters, vbInches))
        Case psB5    'B5, 182 x 257 mm
            m_typ_PageSetupDlg.ptPaperSize.x = pConvertInchesToPrinterUnits(ScaleX(182, vbMillimeters, vbInches))
            m_typ_PageSetupDlg.ptPaperSize.Y = pConvertInchesToPrinterUnits(ScaleY(257, vbMillimeters, vbInches))
        Case psFolio    'Folio, 8 1/2 x 13 in.
            m_typ_PageSetupDlg.ptPaperSize.x = pConvertInchesToPrinterUnits(8.5)
            m_typ_PageSetupDlg.ptPaperSize.Y = pConvertInchesToPrinterUnits(13)
        Case psQuarto    'Quarto, 215 x 275 mm
            m_typ_PageSetupDlg.ptPaperSize.x = pConvertInchesToPrinterUnits(ScaleX(215, vbMillimeters, vbInches))
            m_typ_PageSetupDlg.ptPaperSize.Y = pConvertInchesToPrinterUnits(ScaleY(275, vbMillimeters, vbInches))
        Case ps10x14    '10 x 14 in.
            m_typ_PageSetupDlg.ptPaperSize.x = pConvertInchesToPrinterUnits(10)
            m_typ_PageSetupDlg.ptPaperSize.Y = pConvertInchesToPrinterUnits(14)
        Case ps11x17    '11 x 17 in.
            m_typ_PageSetupDlg.ptPaperSize.x = pConvertInchesToPrinterUnits(11)
            m_typ_PageSetupDlg.ptPaperSize.Y = pConvertInchesToPrinterUnits(17)
        Case psNote    'Note, 8 1/2 x 11 in.
            m_typ_PageSetupDlg.ptPaperSize.x = pConvertInchesToPrinterUnits(8.5)
            m_typ_PageSetupDlg.ptPaperSize.Y = pConvertInchesToPrinterUnits(11)
        Case psEnv9    'Envelope #9, 3 7/8 x 8 7/8 in.
            m_typ_PageSetupDlg.ptPaperSize.x = pConvertInchesToPrinterUnits(3.875)
            m_typ_PageSetupDlg.ptPaperSize.Y = pConvertInchesToPrinterUnits(8.875)
        Case psEnv10    'Envelope #10, 4 1/8 x 9 1/2 in.
            m_typ_PageSetupDlg.ptPaperSize.x = pConvertInchesToPrinterUnits(4.125)
            m_typ_PageSetupDlg.ptPaperSize.Y = pConvertInchesToPrinterUnits(9.5)
        Case psEnv11    'Envelope #11, 4 1/2 x 10 3/8 in.
            m_typ_PageSetupDlg.ptPaperSize.x = pConvertInchesToPrinterUnits(4.5)
            m_typ_PageSetupDlg.ptPaperSize.Y = pConvertInchesToPrinterUnits(10.375)
        Case psEnv12    'Envelope #12, 4 1/2 x 11 in.
            m_typ_PageSetupDlg.ptPaperSize.x = pConvertInchesToPrinterUnits(4.5)
            m_typ_PageSetupDlg.ptPaperSize.Y = pConvertInchesToPrinterUnits(11)
        Case psEnv14    'Envelope #14, 5 x 11 1/2 in.
            m_typ_PageSetupDlg.ptPaperSize.x = pConvertInchesToPrinterUnits(5)
            m_typ_PageSetupDlg.ptPaperSize.Y = pConvertInchesToPrinterUnits(11.5)
        Case psCSheet    'C size sheet
        Case psDSheet    'D size sheet
        Case psESheet    'E size sheet
        Case psEnvDL    'Envelope DL, 110 x 220 mm
            m_typ_PageSetupDlg.ptPaperSize.x = pConvertInchesToPrinterUnits(ScaleX(110, vbMillimeters, vbInches))
            m_typ_PageSetupDlg.ptPaperSize.Y = pConvertInchesToPrinterUnits(ScaleY(220, vbMillimeters, vbInches))
        Case psEnvC3    'Envelope C3, 324 x 458 mm
            m_typ_PageSetupDlg.ptPaperSize.x = pConvertInchesToPrinterUnits(ScaleX(324, vbMillimeters, vbInches))
            m_typ_PageSetupDlg.ptPaperSize.Y = pConvertInchesToPrinterUnits(ScaleY(458, vbMillimeters, vbInches))
        Case psEnvC4    'Envelope C4, 229 x 324 mm
            m_typ_PageSetupDlg.ptPaperSize.x = pConvertInchesToPrinterUnits(ScaleX(229, vbMillimeters, vbInches))
            m_typ_PageSetupDlg.ptPaperSize.Y = pConvertInchesToPrinterUnits(ScaleY(324, vbMillimeters, vbInches))
        Case psEnvC5    'Envelope C5, 162 x 229 mm
            m_typ_PageSetupDlg.ptPaperSize.x = pConvertInchesToPrinterUnits(ScaleX(162, vbMillimeters, vbInches))
            m_typ_PageSetupDlg.ptPaperSize.Y = pConvertInchesToPrinterUnits(ScaleY(229, vbMillimeters, vbInches))
        Case psEnvC6    'Envelope C6, 114 x 162 mm
            m_typ_PageSetupDlg.ptPaperSize.x = pConvertInchesToPrinterUnits(ScaleX(114, vbMillimeters, vbInches))
            m_typ_PageSetupDlg.ptPaperSize.Y = pConvertInchesToPrinterUnits(ScaleY(162, vbMillimeters, vbInches))
        Case psEnvC65    'Envelope C65, 114 x 229 mm
            m_typ_PageSetupDlg.ptPaperSize.x = pConvertInchesToPrinterUnits(ScaleX(114, vbMillimeters, vbInches))
            m_typ_PageSetupDlg.ptPaperSize.Y = pConvertInchesToPrinterUnits(ScaleY(229, vbMillimeters, vbInches))
        Case psEnvB4    'Envelope B4, 250 x 353 mm
            m_typ_PageSetupDlg.ptPaperSize.x = pConvertInchesToPrinterUnits(ScaleX(250, vbMillimeters, vbInches))
            m_typ_PageSetupDlg.ptPaperSize.Y = pConvertInchesToPrinterUnits(ScaleY(353, vbMillimeters, vbInches))
        Case psEnvB5    'Envelope B5, 176 x 250 mm
            m_typ_PageSetupDlg.ptPaperSize.x = pConvertInchesToPrinterUnits(ScaleX(176, vbMillimeters, vbInches))
            m_typ_PageSetupDlg.ptPaperSize.Y = pConvertInchesToPrinterUnits(ScaleY(250, vbMillimeters, vbInches))
        Case psEnvB6    'Envelope B6, 176 x 125 mm
            m_typ_PageSetupDlg.ptPaperSize.x = pConvertInchesToPrinterUnits(ScaleX(176, vbMillimeters, vbInches))
            m_typ_PageSetupDlg.ptPaperSize.Y = pConvertInchesToPrinterUnits(ScaleY(125, vbMillimeters, vbInches))
        Case psEnvItaly    'Envelope, 110 x 230 mm
            m_typ_PageSetupDlg.ptPaperSize.x = pConvertInchesToPrinterUnits(ScaleX(110, vbMillimeters, vbInches))