ӡģؼ II 1998.8.28
-------------------------


----
 Ԥؼ Preview  PrnCls
Ԥؼ Preview  PictureBox ʵֶ Printer ȫģ⡣
 PrnCls ṩͳһĽ棬 ʵһαд ͬʱִ֧ӡԤؼ Preview 

жԴӡı̣  PrnCls ʵ֣ ￴ģ 
ͨͬ PrintStartDoc  ʵִӡԤ еĿƴӡĴȫһ

ӵıΪ˿ܣ ǿڵʱ Ԥؼ Preview 
ڵԺԺ ӡ ʡʱʹӡֽ


----
ؼ YuXiao(yuxiao.sun@usa.net) ̣ Ken J.(kenj@163.net)Լĵ 

vbtt.yeah.net VB վ ṩ

 PrnCls
---------

  
  ----
  
  ƣ CurrentX As SingleCurrentY As Single 
  ; ǰ X Y ֵ

  ƣ DrawMode DrawStyle DrawWidth  
  ; ͼģʽ  

  ƣ ForeColor As OLE_COLOR
  ; ߺɫ

  ƣ FontName FontSize FontBold FontItalic 
         FontUnderline FontStrikethru
  ; ֣ С 壬 б壬
         »ߣ ɾ

  ƣ PaperHeight PaperWidth
  ; ӡĸߺͿ ֻ
  

  
  ----

  ƣBoxOut(str1 As String, len1, A1, TSpace, Bord)
  ;ӡ
  Str1 : ӡַ
        len1 : ĳ
        A1   : "C"  "L"  "R" 
        TSpace : ļ϶
        Bord : ķ
               "1111" Ϊ߿
               "0000" Ϊޱ߿
               "2222" Ϊ˫߿

  ƣBoxOutA(str1 As String, len1, A1, TSpace)
  ;ӡ(߿)
  Str1 : ӡַ
        len1 : ĳ
        A1   : "C"  "L"  "R" 
        TSpace : ļ϶

  ƣCenterPrn(LeftArea)
  ;пɴӡ
  LeftArea : ɴӡȡ

  ƣEndDoc()
  ;ӡ
  /

  ƣNewLine()
  ;
  /
  
  ƣNewLineBG(TSpace As Single)
  ;ԱĻ
  Tspace : ļ
  μBoxOut ϵ

  ƣNewPage()
  ;ҳ
  /

  ƣPrintBox(bLeft, bTop, bLeft1, bTop1)
  ;
  bLeft0, bTop0 :  XY 
        bLeft1, bTop1 : յ XY   

  ƣPrintCircle(bLeft, bTop, bRadius)
  ;Բ
  bLeft, bTop : Բĵ XY 
        bRadius : 뾶

  ƣPrintFilledBox(bLeft, bTop, bLeft1, bTop1, color)
  ;
  bLeft0, bTop0 :  XY 
        bLeft1, bTop1 : յ XY 
        color : ɫ

  ƣPrintLine(bLeft0, bTop0, bLeft1, bTop1)
  ;
  bLeft0, bTop0 :  XY 
        bLeft1, bTop1 : յ XY 

  ƣPrintPicture(pic As PictureBox, pLeft, pTop, pWidth, pHeight)
  ;ӡͼƬ
  pic : ͼƬ
        pleft, ptop : 
        pWidth, pHeight : ߺͿ

  ƣPrintPrint(PrintVar As String)
  ;ӡַ  Printer.Print PrinterVar;
  PrintVar : ַ 

  ƣPrintSet(x As Single, y As Single, color)
  ;
  x,y : 
        color : ɫ

  ƣPrintSetPsize(PStr As String, x As Single, y As Single)
  ;ҳĴС
  PStr :  A4  A5  x,y ôС
        x, y : ԼĿ͸ߡ  PStr ѾΪ A4  A5 ֵЧ

  ƣPrintStartDoc(ObjPrn As Object, zmratio)
  ;ʼӡ
  ObjPrn : ӡ Printer Ԥؼ Preview ʵ
        zmratio : ģӡı

  ƣTextWidth(str As String) As Single
  ;ȡַ str Ŀ
  str : ַ

  ƣTextHeight(str As String) As Single
  ;ȡַ str ĸ߶
  str : ַ



  




