pageview.ctl

AddPrintPreviewtoVBV2 增加打印预览的功能

    TwipsPerPixelX = m_sng_TwipsPerPixelX
End Property

Property Get TwipsPerPixelY() As Single
Attribute TwipsPerPixelY.VB_Description = "Returns the number of twips per printer pixel in the vertical direction."
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get TwipsPerPixelY")
    #End If

    TwipsPerPixelY = m_sng_TwipsPerPixelY
End Property

Property Get Version() As Single
Attribute Version.VB_Description = "Returns the version of the control currently loaded."
Attribute Version.VB_MemberFlags = "400"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get Version")
    #End If

    Version = CSng((App.Major & "." & App.Minor))
End Property
'*************************************************************

'*************************************************************
' PUBLIC READ/WRITE PROPERTIES
'*************************************************************
Property Get AbortWindow() As Boolean
Attribute AbortWindow.VB_Description = "Returns or sets whether an Abort dialog will appear while the control is printing."
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get AbortWindow")
    #End If

    AbortWindow = m_bool_AbortWindow
End Property
Property Let AbortWindow(x As Boolean)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let AbortWindow")
    #End If

    m_bool_AbortWindow = x
    Call PropertyChanged("AbortWindow")
End Property

Property Get AbortWindowSettings() As ABORTWINDOWTYPE
Attribute AbortWindowSettings.VB_Description = "Returns or sets the settings for the default Abort dialog."
Attribute AbortWindowSettings.VB_MemberFlags = "400"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get AbortWindowSettings")
    #End If

    AbortWindowSettings = m_typ_AbortWindowSettings
End Property
Property Let AbortWindowSettings(x As ABORTWINDOWTYPE)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let AbortWindowSettings")
    #End If

    m_typ_AbortWindowSettings = x
    Call PropertyChanged("AbortWindowSettings")
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=UserControl,UserControl,-1,Appearance
Public Property Get Appearance() As AppearanceConstants
Attribute Appearance.VB_Description = "Returns/sets whether or not an object is painted at run time with 3-D effects."
Attribute Appearance.VB_ProcData.VB_Invoke_Property = ";Appearance"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get Appearance")
    #End If

    Appearance = UserControl.Appearance
End Property
Public Property Let Appearance(ByVal New_Appearance As AppearanceConstants)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let Appearance")
    #End If

    UserControl.Appearance() = New_Appearance
    Call PropertyChanged("Appearance")
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=picWorkspace,picWorkspace,-1,BackColor
Public Property Get BackColor() As OLE_COLOR
Attribute BackColor.VB_Description = "Returns or sets the color of the workspace around the preview page."
Attribute BackColor.VB_ProcData.VB_Invoke_Property = "StandardColor;Appearance"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get BackColor")
    #End If

    BackColor = picWorkspace.BackColor
End Property
Public Property Let BackColor(ByVal New_BackColor As OLE_COLOR)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let BackColor")
    #End If

    picWorkspace.BackColor() = New_BackColor
    Call PropertyChanged("BackColor")
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=UserControl,UserControl,-1,BorderStyle
Public Property Get BorderStyle() As BorderStyleConstants
Attribute BorderStyle.VB_Description = "Returns/sets the border style for an object."
Attribute BorderStyle.VB_ProcData.VB_Invoke_Property = ";Appearance"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get BorderStyle")
    #End If

    BorderStyle = UserControl.BorderStyle
End Property
Public Property Let BorderStyle(ByVal New_BorderStyle As BorderStyleConstants)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let BorderStyle")
    #End If

    UserControl.BorderStyle() = New_BorderStyle
    Call PropertyChanged("BorderStyle")
End Property

Property Get Collate() As CollateConstants
Attribute Collate.VB_Description = "Returns or sets whether multiple copies will be collated."
Attribute Collate.VB_MemberFlags = "400"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get Collate")
    #End If

    Collate = m_enum_Collate
End Property
Property Let Collate(x As CollateConstants)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let Collate")
    #End If

    m_enum_Collate = x
    m_typ_DevMode.dmCollate = x
    Call PropertyChanged("Collate")
End Property

Property Get ColorMode() As ColorModeConstants
Attribute ColorMode.VB_Description = "Returns or sets the color mode on color printers."
Attribute ColorMode.VB_MemberFlags = "400"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get ColorMode")
    #End If

    ColorMode = m_enum_ColorMode
End Property
Property Let ColorMode(x As ColorModeConstants)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let ColorMode")
    #End If

    m_enum_ColorMode = x
    m_typ_DevMode.dmColor = x
    Call PropertyChanged("ColorMode")
End Property

Property Get Copies() As Integer
Attribute Copies.VB_Description = "Returns/sets a value that determines the number of copies to be printed."
Attribute Copies.VB_MemberFlags = "400"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get Copies")
    #End If

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

    m_int_Copies = x
    m_typ_DevMode.dmCopies = x
    Call PropertyChanged("Copies")
End Property

Property Get DefaultDevice() As Boolean
Attribute DefaultDevice.VB_Description = "Returns or sets whether device changes affect the Windows default settings."
Attribute DefaultDevice.VB_ProcData.VB_Invoke_Property = ";Behavior"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get DefaultDevice")
    #End If

    DefaultDevice = m_bool_DefaultDevice
End Property
Property Let DefaultDevice(x As Boolean)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let DefaultDevice")
    #End If

    m_bool_DefaultDevice = x
    Call PropertyChanged("DefaultDevice")
End Property

Property Get DeviceName() As String
Attribute DeviceName.VB_Description = "Returns the name of the device a driver supports."
Attribute DeviceName.VB_MemberFlags = "400"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get DeviceName")
    #End If

    DeviceName = Printer.DeviceName
    'DeviceName = m_str_DeviceName
End Property
Property Let DeviceName(x As String)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let DeviceName")
    #End If

    m_str_DeviceName = x
    Call PropertyChanged("DeviceName")
End Property

Property Get DevicePort() As String
Attribute DevicePort.VB_Description = "Returns the name of the port through which a document is sent to a printer."
Attribute DevicePort.VB_MemberFlags = "400"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get DevicePort")
    #End If

    DevicePort = Printer.Port
    'DevicePort = m_str_DevicePort
End Property
Property Let DevicePort(x As String)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let DevicePort")
    #End If

    m_str_DevicePort = x
    Call PropertyChanged("DevicePort")
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=picPage,picPage,-1,DrawStyle
Public Property Get DrawStyle() As DrawStyleConstants
Attribute DrawStyle.VB_Description = "Determines the line style for output from graphics methods."
Attribute DrawStyle.VB_ProcData.VB_Invoke_Property = ";Appearance"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get DrawStyle")
    #End If

    DrawStyle = picPage.DrawStyle
End Property
Public Property Let DrawStyle(ByVal New_DrawStyle As DrawStyleConstants)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let DrawStyle")
    #End If

    picPage.DrawStyle() = New_DrawStyle
    Call PropertyChanged("DrawStyle")
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=picPage,picPage,-1,DrawWidth
Public Property Get DrawWidth() As Integer
Attribute DrawWidth.VB_Description = "Returns/sets the line width for output from graphics methods."
Attribute DrawWidth.VB_ProcData.VB_Invoke_Property = ";Appearance"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get DrawWidth")
    #End If

    DrawWidth = picPage.DrawWidth
End Property
Public Property Let DrawWidth(ByVal New_DrawWidth As Integer)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let DrawWidth")
    #End If

    picPage.DrawWidth() = New_DrawWidth
    Call PropertyChanged("DrawWidth")
End Property

Property Get Duplex() As DuplexConstants
Attribute Duplex.VB_Description = "Determines whether a page is printed on both sides."
Attribute Duplex.VB_MemberFlags = "400"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get Duplex")
    #End If

    Duplex = m_enum_Duplex
End Property
Property Let Duplex(x As DuplexConstants)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let Duplex")
    #End If

    m_enum_Duplex = x
    m_typ_DevMode.dmDuplex = x
    Call PropertyChanged("Duplex")
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=UserControl,UserControl,-1,Enabled
Public Property Get Enabled() As Boolean
Attribute Enabled.VB_Description = "Returns/sets a value that determines whether an object can respond to user-generated events."
Attribute Enabled.VB_ProcData.VB_Invoke_Property = ";Behavior"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get Enabled")
    #End If

    Enabled = UserControl.Enabled
End Property
Public Property Let Enabled(ByVal New_Enabled As Boolean)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let Enabled")
    #End If

    UserControl.Enabled() = New_Enabled
    Call PropertyChanged("Enabled")
End Property

Property Get FileName() As String
Attribute FileName.VB_Description = "Returns or sets the name of the current document."
Attribute FileName.VB_ProcData.VB_Invoke_Property = ";Misc"
    #If RunStackLogger = 1 Then
        Call LogStackItem("Get FileName")
    #End If

    FileName = m_str_FileName
End Property
Property Let FileName(x As String)
    #If RunStackLogger = 1 Then
        Call LogStackItem("Let FileName")
    #End If

    m_str_FileName = x
    Call PropertyChanged("FileName")
End Property

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=picPage,picPage,-1,FillColor
Public Property Get FillColor() As OLE_COLOR
Attribute FillColor.VB_Description = "Returns/sets the color used to fill in closed shapes like circles, boxes, etc."
Attribute FillColor.VB_ProcData.VB_Invoke_Property = ";Appearance"
    #If RunStackLogger = 1 Then