關於轉資料到Excel時，設定Excel的問題? |
|
答題得分者是：cmf
|
|
skurama
中階會員   發表：88 回覆：127 積分：73 註冊：2002-07-22 發送簡訊給我 |
請問，是否能設定Excel的版面為橫向或縱向列印的方式! 以下是我建立一個Excel的方法 var
iPage: integer;
wsSheet: _WorkSheet;
begin
//開啟Excel檔
Excelapplication1.Connect();
ExcelApplication1.Visible[0] := True;
ExcelApplication1.Caption := 'PACKING LIST'; //讓Excel連線到WorkBook上
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));
ExcelApplication1.ScreenUpdating[0] := True; //建立第一張MI指令
iPage := 1;
wsSheet := ExcelWorkbook1.WorkSheets.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam,0) as _WorkSheet; 請問是否能
wsSheet.? := Vertical or Horizontal ----------------
初出芧房程設師，
左鍵右鼠寫程式，
日扣夜寫眼框溼，
望能早成系分師。
----------------
------
---------------- 初出芧房程設師， 左鍵右鼠寫程式， 日扣夜寫眼框溼， 望能早成系分師。 ---------------- |
|
cmf
尊榮會員 發表：84 回覆：918 積分：1032 註冊：2002-06-26 發送簡訊給我 |
引言: 請問，是否能設定Excel的版面為橫向或縱向列印的方式! 以下是我建立一個Excel的方法 var iPage: integer; wsSheet: _WorkSheet; begin //開啟Excel檔 Excelapplication1.Connect(); ExcelApplication1.Visible[0] := True; ExcelApplication1.Caption := 'PACKING LIST'; //讓Excel連線到WorkBook上 ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0)); ExcelApplication1.ScreenUpdating[0] := True; //建立第一張MI指令 iPage := 1; wsSheet := ExcelWorkbook1.WorkSheets.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam,0) as _WorkSheet; 請問是否能 wsSheet.? := Vertical or Horizontal ---------------- 初出芧房程設師， 左鍵右鼠寫程式， 日扣夜寫眼框溼， 望能早成系分師。 ----------------With wsSheet.PageSetup do LeftHeader = "" CenterHeader = "" RightHeader = "" LeftFooter = "" CenterFooter = "" RightFooter = "" LeftMargin = Application.InchesToPoints(0.748031496062992) RightMargin = Application.InchesToPoints(0.748031496062992) TopMargin = Application.InchesToPoints(0.984251968503937) BottomMargin = Application.InchesToPoints(0.984251968503937) HeaderMargin = Application.InchesToPoints(0.511811023622047) FooterMargin = Application.InchesToPoints(0.511811023622047) PrintHeadings = False PrintGridlines = False PrintComments = xlPrintNoComments CenterHorizontally = False CenterVertically = False Orientation = xlLandscape Draft = False PaperSize = xlPaperA4 FirstPageNumber = xlAutomatic Order = xlDownThenOver BlackAndWhite = False Zoom = 100 End;
------
︿︿ |
|
Miles
尊榮會員 發表：27 回覆：662 積分：622 註冊：2002-07-12 發送簡訊給我 |
|
|
cmf
尊榮會員 發表：84 回覆：918 積分：1032 註冊：2002-06-26 發送簡訊給我 |
發表時間：2002-12-26 17:28:20
IP:61.219.xxx.xxx 未訂閱
系統時間：2024-04-28 4:57:40
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |