xlsconst.pas

文件包含程序源原文件

unit xlsConst;

interface
uses Windows,SysUtils,Comobj,Classes,IniFiles;

type
TEXCEL_PRINTER = Record
 PrinterName:String;
 A4LRows,
 A4PRows,
 B4LRows,
 B4PRows:Integer;
end;
PEXCEL_PRINTER=^TEXCEL_PRINTER;

var EXCEL_PRINTER:TList; // MainForm 偱矣貖剛钃杺臄p婞

const
     // VBA Excel 掕悢
     //埵抲
     xlLeft=-4131;    // 嵍婑偣
     xlCenter=-4108;  // 拞墰婑偣
     xlRight=-4152;   // 塃婑偣
     xlBottom=-4107;  // 壓婑偣
     xlNone=-4142;
     //宺慄
     //慄庬
     xlContinuous=1;
     xlDot=-4118;
     xlDashDotDot=5;
     xlDashDot=4;
     xlDash=-4115;
     xlDouble=-4119;
     //暆
     xlHairline=1;
     xlThin=2;
     xlThick=4;

     xlAutomatic=-4105;
     xlDistributed=-4117;
     xlGray16=17;

     xlDiagonalDown=5;
     xlDiagonalUp=6;
     xlEdgeLeft=7;
     xlEdgeRight=10;
     xlEdgeTop=8;
     xlEdgeBottom=9;
     xlInsideVertical=11;
     xlInsideHorizontal=12;

     xlDownThenOver=1;
     xlOverThenDown=2;

     //恾宍
     msoTextOrientationHorizontal=1;
     msoFalse=0;
     msoLineSolid=1;
     msoLineSquareDot=2;
     msoLineRoundDot=3;
     msoLineDash=4;        // 攋慄
     msoLineDashDot=5;     // 侾揰嵔慄
     msoLineDashDotDot=6;  // 挿俀揰嵔慄
     msoLineLongDash=7;    // 挿攋慄
     msoShapeRectangle=1;
     msoArrowheadTriangle=2;
     msoArrowheadLengthMedium=2;
     msoArrowheadWidthMedium=2;
     msoArrowheadShort=1;
     //岦偒
     xlPortrait=1;  //廲岦偒
     xlLandscape=2; //墶岦偒
     //梡巻徊睫
     xlPaperA3=8;
     xlPaperA4=9;
     xlPaperA4Small=10;
     xlPaperB4=12;
     xlPaperB5=13;
     // 蹲安菝薤附
     xlRed =3;
     // 壓慄
     xlUnderlineStyleNone=-4142;        //側偟
     xlUnderlineStyleSingle=2;          //壓慄
     xlUnderlineStyleDouble=-4119;      //擇廳壓慄
     xlUnderlineStyleSingleAccounting=4;//壓慄乮夛寁乯
     xlUnderlineStyleDoubleAccounting=5;//擇廳壓慄乮夛寁乯
     // 巢菽蕹嚼操
     xlMaximized = -4137;
     xlMinimized = -4140;
     xlNormal =    -4143;

     //僇乕僜儖
     xlWait = 2;
     xlDefault = -4143;
     
function GetExcelRange(Rect:TRect):String; // TRect 偼侽地嫁輦艓w掕
// 慖戰斖埻偺宺慄傪堷偔
procedure RangeAddLine(V:OleVariant; Rect:TRect; Edge:Integer);
function  GetExcelCellString(RowIndex,ColIndex:Integer):String; // 1地嫁