pageview.ctl

AddPrintPreviewtoVBV2 增加打印预览的功能

        Call LogStackItem("Get FillColor")
    #End If

    FillColor = picPage.FillColor
End Property
Public Property Let FillColor(ByVal New_FillColor As OLE_COLOR)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let FillColor")
    #End If

    picPage.FillColor() = New_FillColor
    Call PropertyChanged("FillColor")
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=picPage,picPage,-1,FillStyle
Public Property Get FillStyle() As FillStyleConstants
Attribute FillStyle.VB_Description = "Returns/sets the fill style of a shape."
Attribute FillStyle.VB_ProcData.VB_Invoke_Property = ";Appearance"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get FillStyle")
    #End If

    FillStyle = picPage.FillStyle
End Property
Public Property Let FillStyle(ByVal New_FillStyle As FillStyleConstants)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let FillStyle")
    #End If

    picPage.FillStyle() = New_FillStyle
    Call PropertyChanged("FillStyle")
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=picPage,picPage,-1,Font
Public Property Get Font() As Font
Attribute Font.VB_Description = "Returns a Font object."
Attribute Font.VB_ProcData.VB_Invoke_Property = ";Font"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get Font")
    #End If

    Set Font = picPage.Font
End Property
Public Property Set Font(ByVal New_Font As Font)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let Font")
    #End If

    Set picPage.Font = New_Font
    Call PropertyChanged("Font")
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=picPage,picPage,-1,FontBold
Public Property Get FontBold() As Boolean
Attribute FontBold.VB_Description = "Returns/sets bold font styles."
Attribute FontBold.VB_ProcData.VB_Invoke_Property = ";Font"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get FontBold")
    #End If

    FontBold = picPage.FontBold
End Property
Public Property Let FontBold(ByVal New_FontBold As Boolean)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let FontBold")
    #End If

    picPage.FontBold() = New_FontBold
    Call PropertyChanged("FontBold")
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=picPage,picPage,-1,FontItalic
Public Property Get FontItalic() As Boolean
Attribute FontItalic.VB_Description = "Returns/sets italic font styles."
Attribute FontItalic.VB_ProcData.VB_Invoke_Property = ";Font"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get FontItalic")
    #End If

    FontItalic = picPage.FontItalic
End Property
Public Property Let FontItalic(ByVal New_FontItalic As Boolean)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let FontItalic")
    #End If

    picPage.FontItalic() = New_FontItalic
    Call PropertyChanged("FontItalic")
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=picPage,picPage,-1,FontName
Public Property Get FontName() As String
Attribute FontName.VB_Description = "Specifies the name of the font that appears in each row for the given level."
Attribute FontName.VB_ProcData.VB_Invoke_Property = ";Font"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get FontName")
    #End If

    FontName = picPage.FontName
End Property
Public Property Let FontName(ByVal New_FontName As String)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let FontName")
    #End If

    picPage.FontName() = New_FontName
    Call PropertyChanged("FontName")
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=picPage,picPage,-1,FontSize
Public Property Get FontSize() As Single
Attribute FontSize.VB_Description = "Specifies the size (in points) of the font that appears in each row for the given level."
Attribute FontSize.VB_ProcData.VB_Invoke_Property = ";Font"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get FontSize")
    #End If

    FontSize = picPage.FontSize
End Property
Public Property Let FontSize(ByVal New_FontSize As Single)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let FontSize")
    #End If

    picPage.FontSize() = New_FontSize
    Call PropertyChanged("FontSize")
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=picPage,picPage,-1,FontStrikethru
Public Property Get FontStrikethru() As Boolean
Attribute FontStrikethru.VB_Description = "Returns/sets strikethrough font styles."
Attribute FontStrikethru.VB_ProcData.VB_Invoke_Property = ";Font"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get FontStrikethru")
    #End If

    FontStrikethru = picPage.FontStrikethru
End Property
Public Property Let FontStrikethru(ByVal New_FontStrikethru As Boolean)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let FontStrikethru")
    #End If

    picPage.FontStrikethru() = New_FontStrikethru
    Call PropertyChanged("FontStrikethru")
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=picPage,picPage,-1,FontTransparent
Public Property Get FontTransparent() As Boolean
Attribute FontTransparent.VB_Description = "Returns/sets a value that determines whether background text/graphics on a Form, Printer or PictureBox are displayed."
Attribute FontTransparent.VB_ProcData.VB_Invoke_Property = ";Font"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get FontTransparent")
    #End If

    FontTransparent = picPage.FontTransparent
End Property
Public Property Let FontTransparent(ByVal New_FontTransparent As Boolean)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let FontTransparent")
    #End If

    picPage.FontTransparent() = New_FontTransparent
    Call PropertyChanged("FontTransparent")
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=picPage,picPage,-1,FontUnderline
Public Property Get FontUnderline() As Boolean
Attribute FontUnderline.VB_Description = "Returns/sets underline font styles."
Attribute FontUnderline.VB_ProcData.VB_Invoke_Property = ";Font"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get FontUnderline")
    #End If

    FontUnderline = picPage.FontUnderline
End Property
Public Property Let FontUnderline(ByVal New_FontUnderline As Boolean)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let FontUnderline")
    #End If

    picPage.FontUnderline() = New_FontUnderline
    Call PropertyChanged("FontUnderline")
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=picPage,picPage,-1,ForeColor
Public Property Get ForeColor() As OLE_COLOR
Attribute ForeColor.VB_Description = "Returns/sets the foreground color used to display text and graphics in an object."
Attribute ForeColor.VB_ProcData.VB_Invoke_Property = ";Appearance"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get ForeColor")
    #End If

    ForeColor = picPage.ForeColor
End Property
Public Property Let ForeColor(ByVal New_ForeColor As OLE_COLOR)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let ForeColor")
    #End If

    picPage.ForeColor() = New_ForeColor
    Call PropertyChanged("ForeColor")
End Property

Property Get MarginBottom() As Long
Attribute MarginBottom.VB_Description = "Returns or sets the bottom margin, in twips."
Attribute MarginBottom.VB_ProcData.VB_Invoke_Property = ";Text"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get MarginBottom")
    #End If

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

    m_lng_MarginBottom = x
    m_typ_PageSetupDlg.rtMargin.bottom = pConvertTwipsToPrinterUnits(x)
    Call pUpdatePageMargins
    Call PropertyChanged("MarginBottom")
End Property

Property Get MarginLeft() As Long
Attribute MarginLeft.VB_Description = "Returns or sets the left margin, in twips."
Attribute MarginLeft.VB_ProcData.VB_Invoke_Property = ";Text"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get MarginLeft")
    #End If

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

    m_lng_MarginLeft = x
    m_typ_PageSetupDlg.rtMargin.Left = pConvertTwipsToPrinterUnits(x)
    Call pUpdatePageMargins
    Call PropertyChanged("MarginLeft")
End Property

Property Get MarginRight() As Long
Attribute MarginRight.VB_Description = "Returns or sets the right margin, in twips."
Attribute MarginRight.VB_ProcData.VB_Invoke_Property = ";Text"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get MarginRight")
    #End If

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

    m_lng_MarginRight = x
    m_typ_PageSetupDlg.rtMargin.right = pConvertTwipsToPrinterUnits(x)
    Call pUpdatePageMargins
    Call PropertyChanged("MarginRight")
End Property

Property Get MarginTop() As Long
Attribute MarginTop.VB_Description = "Returns or sets the top margin, in twips."
Attribute MarginTop.VB_ProcData.VB_Invoke_Property = ";Text"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get MarginTop")
    #End If

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

    m_lng_MarginTop = x
    m_typ_PageSetupDlg.rtMargin.Top = pConvertTwipsToPrinterUnits(x)
    Call pUpdatePageMargins
    Call PropertyChanged("MarginTop")
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=UserControl,UserControl,-1,MouseIcon
Public Property Get MouseIcon() As Picture
Attribute MouseIcon.VB_Description = "Sets a custom mouse icon."
Attribute MouseIcon.VB_ProcData.VB_Invoke_Property = ";Misc"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get MouseIcon")
    #End If

    Set MouseIcon = UserControl.MouseIcon
End Property
Public Property Set MouseIcon(ByVal New_MouseIcon As Picture)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Set MouseIcon")
    #End If

    Set UserControl.MouseIcon = New_MouseIcon
    Call PropertyChanged("MouseIcon")
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=UserControl,UserControl,-1,MousePointer
Public Property Get MousePointer() As MousePointerConstants
Attribute MousePointer.VB_Description = "Returns/sets the type of mouse pointer displayed when over part of an object."
Attribute MousePointer.VB_ProcData.VB_Invoke_Property = ";Misc"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get MousePointer")
    #End If

    MousePointer = UserControl.MousePointer
End Property
Public Property Let MousePointer(ByVal New_MousePointer As MousePointerConstants)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let MousePointer")
    #End If

    UserControl.MousePointer() = New_MousePointer
    Call PropertyChanged("MousePointer")
End Property

Property Get MouseZoom() As MouseZoomConstants
Attribute MouseZoom.VB_Description = "Returns or sets whether the user can zoom in and out by double clicking on the preview window."
Attribute MouseZoom.VB_ProcData.VB_Invoke_Property = ";Misc"
    #If RunStackLogger = 1 Then