pageview.ctl

AddPrintPreviewtoVBV2 增加打印预览的功能

VERSION 5.00
Begin VB.UserControl Preview 
   Alignable       =   -1  'True
   AutoRedraw      =   -1  'True
   ClientHeight    =   4995
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   6000
   EditAtDesignTime=   -1  'True
   Enabled         =   0   'False
   PropertyPages   =   "PageView.ctx":0000
   ScaleHeight     =   4995
   ScaleWidth      =   6000
   ToolboxBitmap   =   "PageView.ctx":0035
   Begin VB.PictureBox picWorkspace 
      Appearance      =   0  'Flat
      BackColor       =   &H8000000C&
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   4695
      Left            =   120
      ScaleHeight     =   4695
      ScaleWidth      =   5775
      TabIndex        =   0
      Top             =   120
      Width           =   5775
      Begin VB.PictureBox picPage 
         Appearance      =   0  'Flat
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   0  'None
         CausesValidation=   0   'False
         ClipControls    =   0   'False
         ForeColor       =   &H80000008&
         Height          =   3735
         Left            =   1440
         ScaleHeight     =   3735
         ScaleWidth      =   2775
         TabIndex        =   1
         TabStop         =   0   'False
         Top             =   240
         Width           =   2775
         Begin VB.Shape shpPaperBorder 
            BorderStyle     =   6  'Inside Solid
            Height          =   3255
            Left            =   240
            Top             =   240
            Width           =   2265
         End
      End
      Begin VB.PictureBox picPageShadow 
         Appearance      =   0  'Flat
         BackColor       =   &H80000015&
         ForeColor       =   &H80000008&
         HasDC           =   0   'False
         Height          =   3735
         Left            =   1560
         ScaleHeight     =   3705
         ScaleWidth      =   2745
         TabIndex        =   3
         Top             =   360
         Width           =   2775
      End
      Begin VB.Image imgNoPrinters 
         Appearance      =   0  'Flat
         Height          =   720
         Left            =   360
         Picture         =   "PageView.ctx":0347
         Top             =   1320
         Visible         =   0   'False
         Width           =   720
      End
      Begin VB.Label lblNoPrinters 
         Alignment       =   2  'Center
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         Caption         =   "No printers are installed"
         BeginProperty Font 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000008&
         Height          =   435
         Left            =   120
         TabIndex        =   2
         Top             =   2160
         Visible         =   0   'False
         Width           =   1305
      End
   End
End
Attribute VB_Name = "Preview"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_Ext_KEY = "PropPageWizardRun" ,"Yes"
'*******************************************************************************************
' Class:    PageView
' Filename: PageView.cls
' Author:   Vincent Lozada
' Date:     04/17/2000
'*******************************************************************************************

Option Explicit

'===============================================
' PUBLIC DECLARATIONS
'===============================================
Public Pages    As Pages
Public Header   As PageHeaderFooter
Public Footer   As PageHeaderFooter

'===============================================
' PUBLIC CONSTANT DECLARATIONS
'===============================================
Public Enum AbortWindowPositionConstants
    awpAppWindow = 0    'Causes the automatic Abort dialog to appear centered over the vsPrinter control.
    awpScreenCenter = 1    'Causes the automatic Abort dialog to appear centered on the screen.
End Enum

Public Enum ActionConstants
    paNone = 0    'No effect.
    paPrintFile = 1    'Prints the file specified by the FileName property.
    paChoosePrintFile = 2    'Shows a printer setup dialog, then prints the file specified by the FileName property.
    paStartDoc = 3    'Equivalent to the StartDoc method.
    paNewPage = 4    'Equivalent to the NewPage method.
    paNewCol = 5    'Equivalent to the NewColumn method.
    paEndDoc = 6    'Equivalent to the EndDoc method.
    paAbortDoc = 7    'Equivalent to the KillDoc method.
    paPrintPage = 8    'Prints the current preview page (set by the PreviewPage property).
    paChoosePrintPage = 9    'Shows a printer setup dialog, then prints the current preview page.
    paCopyPage = 10    'Copies the current preview page to the clipboard.
    paPrintAll = 11    'Equivalent to the PrintDoc method.
    paChoosePrintAll = 12    'Shows a printer setup dialog, then prints the document being previewed.
    paChoosePrinter = 13    'Equivalent to the PrintDialog method.
    paPageSetup = 14    'Equivalent to the PrintDialog method.
End Enum

Public Enum AppearanceConstants
    apFlat = 0
    ap3D = 1
End Enum

Public Enum BorderStyleConstants
    bsNone = 0
    bsSingle = 1
End Enum

Public Enum ColorModeConstants
    cmMonochrome = 1    'Print output in monochrome (usually shades of black and white).
    cmColor = 2    'Print output in color.
End Enum

Public Enum CollateConstants
    colFalse = 0    'Do not collate when printing multiple copies.
    colTrue = 1    'Collate when printing multiple copies.
End Enum

Public Enum DrawStyleConstants
    dsSolid = 0    '(Default) Solid
    dsDash = 1    'Dash
    dsDot = 2    'Dot
    dsDashDot = 3    'Dash-Dot
    dsDashDotDot = 4    'Dash-Dot-Dot
    dsInvisible = 5    'Transparent
    dsInsideSolid = 6    'Inside Solid
End Enum

Public Enum DuplexConstants
    dpxSimplex = 1    'Single-sided printing with the current orientation setting.
    dpxHorizontal = 2    'Double-sided printing using a horizontal page turn.
    dpxVertical = 3    'Double-sided printing using a vertical page turn.
End Enum

Public Enum FillStyleConstants
    fsSolid = 0    'Solid
    fsTransparent = 1    '(Default) Transparent
    fsHorizontalLine = 2    'Horizontal Line
    fsVerticalLine = 3    'Vertical Line
    fsUpwardDiagonal = 4    'Upward Diagonal
    fsDownwardDiagonal = 5    'Downward Diagonal
    fsCross = 6    'Cross
    fsDiagonalCross = 7    'Diagonal Cross
End Enum

Public Enum MousePointerConstants
    mpDefault = 0    'Default
    mpArrow = 1    'Arrow
    mpCrosshair = 2    'Cross
    mpIbeam = 3    'I beam
    mpIconPointer = 4    'Icon
    mpSizePointer = 5    'Size
    mpSizeNESW = 6    'Size NE, SW
    mpSizeNS = 7    'Size N, S
    mpSizeNWSE = 8    'Size NW, SE
    mpSizeWE = 9    'Size W, E
    mpUpArrow = 10    'Up arrow
    mpHourglass = 11    'Hourglass
    mpNoDrop = 12    'No drop
    mpArrowHourglass = 13    'Arrow and hourglass; (available only in 32-bit Visual Basic 5.0)
    mpArrowQuestion = 14    'Arrow and question mark; (available only in 32-bit Visual Basic 5.0)
    mpSizeAll = 15    'Size all; (available only in 32-bit Visual Basic 5.0)
    mpCustom = 99    'Custom icon specified by the MouseIcon property
End Enum

Public Enum MouseZoomConstants
    mzNone = 0    'No automatic zooming with the mouse.
    mzSimple = 1    'Clicking the mouse with the left- and right-buttons zooms in and out
    'by incrementing or decrementing the Zoom property by a step specified by the
    'ZoomStep property. The ZoomMode property is alway set to zmPercentage.
    mzExtended = 2    'Clicking the mouse with the left- and right-buttons zooms in and out
    'by incrementing or decrementing the Zoom property by a step specified by the
    'ZoomStep property. If the user zooms out until the entire preview page is
    'visible, the control switches the ZoomMode property to show two or more pages
    'at once.
End Enum

Public Enum OrientationConstants
    orPortrait = 1    'Documents are printed with the top at the narrow side of the paper.
    orLandscape = 2    'Documents are printed with the top at the wide side of the paper.
End Enum

Public Enum PageBorderConstants
    pbNone = 0
    pbBottom = 1
    pbTop = 2
    pbTopBottom = 3
    pbBox = 4
End Enum

Public Enum PaperBinConstants
    pbUpper = 1    'Use paper from the upper bin.
    pbLower = 2    'Use paper from the lower bin.
    pbMiddle = 3    'Use paper from the middle bin.
    pbManual = 4    'Wait for manual insertion of each sheet of paper.
    pbEnvelope = 5    'Use envelopes from the envelope feeder.
    pbEnvManual = 6    'Use envelopes from the envelope feeder, but wait for manual insertion.
    pbAuto = 7    '(Default) Use paper from the current default bin.
    pbTractor = 8    'Use paper fed from the tractor feeder.
    pbSmallFmt = 9    'Use paper from the small paper feeder.
    pbLargeFmt = 10    'Use paper from the large paper bin.
    pbLargeCapacity = 11    'Use paper from the large capacity feeder.
    pbCassette = 14    'Use paper from the attached cassette cartridge.
End Enum

Public Enum PaperSizeConstants
    psLetter = 1    'Letter, 8 1/2 x 11 in.
    psLetterSmall = 2    'Letter Small, 8 1/2 x 11 in.
    psTabloid = 3    'Tabloid, 11 x 17 in.
    psLedger = 4    'Ledger, 17 x 11 in.
    psLegal = 5    'Legal, 8 1/2 x 14 in.
    psStatement = 6    'Statement, 5 1/2 x 8 1/2 in.
    psExecutive = 7    'Executive, 7 1/2 x 10 1/2 in.
    psA3 = 8    'A3, 297 x 420 mm
    psA4 = 9    'A4, 210 x 297 mm
    psA4Small = 10    'A4 Small, 210 x 297 mm
    psA5 = 11    'A5, 148 x 210 mm
    psB4 = 12    'B4, 250 x 354 mm
    psB5 = 13    'B5, 182 x 257 mm
    psFolio = 14    'Folio, 8 1/2 x 13 in.
    psQuarto = 15    'Quarto, 215 x 275 mm
    ps10x14 = 16    '10 x 14 in.
    ps11x17 = 17    '11 x 17 in.
    psNote = 18    'Note, 8 1/2 x 11 in.
    psEnv9 = 19    'Envelope #9, 3 7/8 x 8 7/8 in.
    psEnv10 = 20    'Envelope #10, 4 1/8 x 9 1/2 in.
    psEnv11 = 21    'Envelope #11, 4 1/2 x 10 3/8 in.
    psEnv12 = 22    'Envelope #12, 4 1/2 x 11 in.
    psEnv14 = 23    'Envelope #14, 5 x 11 1/2 in.
    psCSheet = 24    'C size sheet
    psDSheet = 25    'D size sheet
    psESheet = 26    'E size sheet
    psEnvDL = 27    'Envelope DL, 110 x 220 mm
    psEnvC3 = 29    'Envelope C3, 324 x 458 mm
    psEnvC4 = 30    'Envelope C4, 229 x 324 mm
    psEnvC5 = 28    'Envelope C5, 162 x 229 mm
    psEnvC6 = 31    'Envelope C6, 114 x 162 mm
    psEnvC65 = 32    'Envelope C65, 114 x 229 mm
    psEnvB4 = 33    'Envelope B4, 250 x 353 mm
    psEnvB5 = 34    'Envelope B5, 176 x 250 mm
    psEnvB6 = 35    'Envelope B6, 176 x 125 mm
    psEnvItaly = 36    'Envelope, 110 x 230 mm
    psEnvMonarch = 37    'Envelope Monarch, 3 7/8 x 7 1/2 in.
    psEnvPersonal = 38    'Envelope, 3 5/8 x 6 1/2 in.
    psFanfoldUS = 39    'U.S. Standard Fanfold, 14 7/8 x 11 in.
    psFanfoldStdGerman = 40    'German Standard Fanfold, 8 1/2 x 12 in.
    psFanfoldLglGerman = 41    'German Legal Fanfold, 8 1/2 x 13 in.
    psUser = 256    'User-defined
End Enum

Public Enum PrintDialogConstants
    pdPrinterSetup = 0    'Display the standard printer selection dialog, which allows you to select a printer and modify its properties.
    pdPageSetup = 1    'Display the standard page setup dialog, which allows you to set margins, paper size, and page orientation.
End Enum

Public Enum PrintQualityConstants
    pqDraft = -1    'Draft resolution
    pqLow = -2    'Low resolution
    pqMedium = -3    'Medium resolution
    pqHigh = -4    'High resolution
End Enum

Public Enum PrinterErrorConstants
    perrNone = 0    'No error.
    perrCantAccessPrinter = 3    'Printer is not available.
    perrCantStartJob = 4    'Printer is not responding.
    perrUserAborted = 5    'User clicked the CANCEL button in the automatic Abort dialog.
    perrAlreadyPrinting = 6    'Can't start a new document while another document is being created.
    perrDeviceIncapable = 7    'Printer driver does not support the requested setting.
    perrControlIncapable = 8    'Trying to use the RenderControl property with a control that does not support OPP.
    perrCantInBrowser = 9    'Can't access disk when running in browser safety mode.
End Enum

Public Enum ShapeTypeConstants
    stRectangle = 0
    stSquare = 1
    stOval = 2
    stCircle = 3
    stRoundedRectangle = 4
    stRoundedSquare = 5
    stLine = 6
End Enum

Public Enum ShapeBorderStyleConstants
    sbsTransparent = 0
    sbsSolid = 1
    sbsDash = 2
    sbsDot = 3
    sbsDashDot = 4
    sbsDashDotDot = 5
    sbsInsideSolid = 6
End Enum