'********************¼˵******************************************************************

'¼壺NeedRedraw()
'¼˵ԤͼҪ»ơAutoRedrawΪ٣ôҪڸ¼дҪ´ӡĴ롣
'˵޲

'¼壺ClosePreview()
'¼˵Ԥ¼ûԤϵĹرհťġ
'˵޲

'¼壺RealPrint()
'¼˵û˴ӡԻShowPrinterȻȷťӶ¼Ҫڱ¼дӡӡĴ
'˵޲

'¼壺PrintHeader(CurrentPage As Long, LeftText As String, CenterText As String, RightText As String)
'¼˵Ԥ¼ûԤϵĹرհťġ
'˵
'    CurrentPageǰӡҳ룬ɿؼûʹã
'    LeftTextҳüıû޸Ĵ˲ؼʹã
'    CenterTextҳüмıû޸Ĵ˲ؼʹã
'    RightTextҳüҲıû޸Ĵ˲ؼʹã

'¼壺PrintFooter(CurrentPage As Long, LeftText As String, CenterText As String, RightText As String)
'¼˵Ҫӡҳʱ¼
'˵
'    CurrentPageǰӡҳ룬ɿؼûʹã
'    LeftTextҳıû޸Ĵ˲ؼʹã
'    CenterTextҳмıû޸Ĵ˲ؼʹã
'    RightTextҳҲıû޸Ĵ˲ؼʹã

'¼壺NewPageAutoCreated(ByVal CurrentPage As Long, ByVal OwnerName As String)
'¼˵ִDirectPrintTextOutExµһҳ¼ڴӵҳ⡣
'˵
'    CurrentPageǰӡҳ룬ɿؼûʹã
'    OwnerNameҳķ

'*******************ӡ****************************************************

'̶壺StartPrint(Optional PrintDest As PrintTo = toPreview)
'˵ѡӡ豸ӡԤ
'˵
'   PrintDest豸,ToPrinterʾӡӡ,toPreviewʾԤĬϣ

'̶壺NewPage()
'˵½һҳ档
'˵޲

'̶壺TitleOut(Title As String,Optional FontSize As Long = 12,Optional Alignment As AlignmentConstants = vbCenter)
'˵ӡҳı⣬ִкCurrentX=0,CurrentY߶Զһλá
'˵
'   TitleҪӡı֣
'   FontSizeӡʹõ֣ĬΪ12
'   AlignmentҳĶ뷽ʽ(vbLeft,vbCenter,vbRight)ȱʡֵǾ


'̶壺TextOut(Text As String)
'˵ӵǰλôӡһַ,ִкCurrentY=0,CurrentXΪַӡʱCurrentXλá
'˵
'   TextҪӡ֣

'̶壺TextOutEx(Text As String, Optional RowSpace As Single = 1,  Optional ParagraphIndent As Single = 8, Optional ParagraphSpace As Single = 1)

'˵ӵǰλôӡһַ,ִкCurrentY=0,CurrentXΪַӡʱCurrentXλá
'˵
'   TextҪӡ֣
'       RowSpace :м
'       ParagraphIndent ַ
'       ParagraphSpace 

'̶壺NewRow(Optional RowSpace As Single, Optional RowStartX As Single, Optional RowHeight As Single = -1)
'˵¿ʼһıִкCurrentX=RowStartX,CurrentYRowHeight߶Ƚе
'˵
'   RowSpaceһֺͱ֮ľ룻
'   RowStartXֵˮƽʼꣻ
'   RowHeightһеĹ̶߶ֵñRowSpaceҪΪĿиߣ

'̶壺DotOut(X As Single, Y As Single, Optional Color As Long)
'˵ӡһ㣬ִкCurrentX=X,CurrentY=Y
'˵
'   Xõˮƽꣻ
'   YõĴֱꣻ
'   Colorõɫ

'̶壺LineOut(Left As Single, Top As Single, Right As Single, Bottom As Single,Optional Color As Long = -1)
'˵ӡһֱߣߴDrawWidthִкCurrentX=Right,CurrentY=Bottom
'˵
'   Leftֱʼˮƽꣻ
'   TopֱʼĴֱꣻ
'   Rightֱֹˮƽꣻ
'   BottomֱֹĴֱꣻ
'   Colorߵɫ

'̶壺RectOut(Left As Single, Top As Single, Right As Single, Bottom As Single, Optional Color As Long)
'˵ӡһΣ֣䣩ߴDrawWidthִкCurrentX=Right,CurrentY=Bottom
'˵
'   Leftþʼˮƽꣻ
'   TopþʼĴֱꣻ
'   Rightþֹˮƽꣻ
'   BottomþֹĴֱꣻ
'   Colorþα߿ɫ

'̶壺FilledRectOut(Left As Single, Top As Single, Right As Single, Bottom As Single, Color As Long)
'˵ӡһο飨ִ֣кCurrentX=Right,CurrentY=Bottom
'˵
'   Leftþʼˮƽꣻ
'   TopþʼĴֱꣻ
'   Rightþֹˮƽꣻ
'   BottomþֹĴֱꣻ
'   Colorþοɫ

'̶壺CircleOut(x As Single, y As Single, Radius As Single, Optional Color As Long = -1, Optional Aspect As Single=1)
'˵ӡһ֣ԲߴDrawWidthִкCurrentXCurrentYϵͳȷ
'˵
'   Xã֣ԲԲĵˮƽꣻ
'   Yã֣ԲԲĵĴֱꣻ
'   Radiusã֣Բİ뾶
'   Colorã֣Բɫ
'   Aspectã֣ԲĴֱ뾶ˮƽ뾶ıֵ


'̶壺NewCellRow(Optional CellRowSpace As Single, Optional CellRowStartX As Single = 0, Optional CellRowHeight As Single = -1)
'˵¿ʼһУִкCurrentX=CellRowStartX,CurrentYCellRowHeight߶Ƚе
'˵
'   CellRowSpaceһеԪͱеԪ֮ľ룬һ㲻ã
'   CellRowStartXеԪˮƽʼꣻ
'   CellRowHeightһеԪĹ̶߶ֵ

'̶壺PictureOut(Picture As StdPicture, Optional X As Single = -100, Optional Y As Single = -100)
'˵ӡһStdPicture󡣴ִкCurrentXCurrentYϵͳȷ
'˵
'   XͼƬϽˮƽꣻ
'   YôͼƬϽֱꣻ
'   XYȱʡʾӵǰλÿʼӡ

'̶壺Public Function CellOut( Text As String, CellWidth As Single, Optional CellHeight As Single = -1, Optional CellAlignment As CellAlignmentConsts = cellAlignLeftCenter, Optional BorderWidth As String = "1111",Optional FillColor As OLE_COLOR = -1, Optional MultiLine As Boolean = True,Optional RowSpace As Single = 0.5) As Single
'˵ӵǰλÿʼӡһԪ񣨰ֺɫִкCurrentX=CurrentX+CellWidth,CurrentY䡣
'˵:
'   TextԪڵı
'   CellWidthԪȣ
'   CellHeightԪ߶ȣʡԣı߶ԶԪ߶ȣ
'   CellAlignmentԪıԱ߿Ķ뷽ʽ0-17ʾ18λã
'   BorderWidthԪĸߵߴ֣Ϊϡҡ£
'   FillColorԪɫ
'   MultiLineǷ
'   RowSpaceмࣻ

'Public Sub CellOutPicture(  PictureItem As StdPicture,  CellWidth As Single,  Optional CellHeight As Single,  Optional CellAlignment As CellAlignmentConsts = cellAlignLeftCenter,Optional BorderWidth As String = "1111",Optional FillColor As OLE_COLOR = -1, Optional Stretch As Boolean = False)
'˵ӵǰλÿʼӡһԪ񣨰ֺɫִкCurrentX=CurrentX+CellWidth,CurrentY䡣
'˵:
'   PictureItemԪҪͼΣ
'   CellWidthԪȣ
'   CellHeightԪ߶ȣ
'   CellAlignmentԪıԱ߿Ķ뷽ʽ0-8ʾ9λã
'   BorderWidthԪĸߵߴ֣Ϊϡҡ£
'   FillColorԪɫ
'   StretchǷԪ

'̶壺Public Sub DirectPrint( GridToPrint As Object, Optional Title As String, Optional TitleFontSize As Long = 12, Optional TitleAlignment As AlignmentConstants = vbCenter, Optional TableStartX As Single)
'˵ֱӴӡһGridؼĿǰ֧ListViewMSFlexGridMSHFlexGridDataGrid
'˵
'   GridToPrintҪӡĿؼ
'   Title⡣ֵΪ""ôҳʱӡñ⣻
'   TitleFontSizeӡʹõ֣
'   TitleAlignmentҳĶ뷽ʽ
'   TableStartXʼˮƽꣻ

'̶壺EndDoc()
'˵ӡ
'˵޲

'***************************************ؼ**************************************

'Զ壺ToolBarStyle()
'˵/ԤʽʽXPFLAT

'Զ壺ToolBarVisible()
'˵/عĿɼԡûɽؼԴأҪԼĹ

'Զ壺ToolBarColor()
'˵ùɫ

'Զ壺BorderStyle
'˵/ؿؼ߿͡

'Զ壺BackColor
'˵/ؿؼıɫ

'Զ壺PaperColor
'˵/Ԥʱֽŵɫ

'***************************************ֽźͱ߾**************************************

'Զ壺Orientation
'˵/شӡֽķ÷

'Զ壺PaperSize
'˵/صǰӡֽͺš

'Զ壺PaperWidth
'˵/شӡֽĿȣλmm

'Զ壺PaperHeight
'˵/شӡֽĸ߶ȣλmm

'Զ壺LeftMargin
'˵/شӡֽ߽磬λmm

'Զ壺TopMargin
'˵TopMargin/شӡֽϱ߽磬λmm

'Զ壺RightMargin
'˵/شӡֽұ߽磬λmm

'Զ壺BottomMargin
'˵/شӡֽ±߽磬λmm

'Զ壺LeftCellMargin
'˵/ر־߿ĳߴ磬λmm

'Զ壺TopCellMargin
'˵/ر־ϱ߿ĳߴ磬λmm

'Զ壺RightCellMargin
'˵/ر־ұ߿ĳߴ磬λmm

'Զ壺BottomCellMargin
'˵/ر־±߿ĳߴ磬λmm

'壺TextWidth(Text As String) As Single
'˵ȡһַĿȣֵλmm
'˵
'    TextҪвַ

'壺TextHeight(Text As String) As Single
'˵ȡһַĸ߶ȣֵλmm
'˵
'    TextҪвַ

'*********************ڻͼĻ***************************************************************

'Զ壺DrawWidth
'˵/شӡĿȡ

'Զ壺DrawStyle
'˵/شӡ͡

'Զ壺DrawMode
'˵/شӡͼõĻͼģʽ

'Զ壺ForeColor
'˵/شӡʹõǰɫ

'Զ壺Font
'˵/شӡʹõ塣

'*******************************ֻʱõ**********************************************

'Զ壺PageCount
'˵Ԥܵҳʱã

'Զ壺CurrentPage
'˵صǰԤҳ루ʱã

'Զ壺ScaleHeight
'˵ҳɴӡ߶ȣʱãλmm

'Զ壺ScaleWidth
'˵ҳɴӡȣʱãλmm

'Զ壺CurrentX
'˵/ػҳڵX꣨ʱãλmm

'Զ壺CurrentY
'˵/ػҳڵY꣨ʱãλmm

'Զ壺Busy
'˵ؿؼ״̬ϴδɣֵΪ档µĴӡӦȵCancelPrint

'Զ壺IsPrinter
'˵صǰĴӡ豸ǷǴӡ

'*******************************ʹõĿƺ**********************************************

'̶壺PageSetup()
'˵ҳú,ҳöԻ򡣹൱ڵԤϵҳðť
'˵޲

'̶壺ShowPrinter
'˵ӡú,ӡöԻ򡣹൱ڵԤϵĴӡťûȷťRealPrint¼д¼еĴӡӡ
'˵
'    PrintFlagsӡĲһ㲻Ҫá

'̶壺SetViewPage(newNum As Long)
'˵õǰʾҳ档
'˵
'    newNumҪʾҳ롣

'̶壺PageDown()
'˵ʾһҳ档൱ڵԤ·ҳť
'˵޲

'̶壺PageUp()
'˵ʾһҳ档൱ڵԤϷҳť
'˵޲

'Զ壺Zoom(vbData As Long)
'˵/ȡԤ
'˵
'    vbDataԤ

'̶壺ZoomIn()
'˵ԤС൱ڵԤСť
'˵޲

'̶壺ZoomOut()
'˵ԤŴ൱ڵԤķŴť
'˵޲

'̶壺ClosePreview
'˵رԤ൱ڵԤĹرհťClosePreview¼,ûڸ¼Զ塣
'˵޲

'Զ壺AutoRedraw
'˵/ʾԤҳĸ·ʽΪҪNeedRedraw()¼мҪػĴ롣

'Զ壺ReviewFrom1st
'˵/ҳʱǷӵһҳʾΪٱʾӵǰʾźҳ棨Ԥҳʱʹã