列印時.可設定紙張邊界 程式碼如下 :       Ms_ExcelAP4.Worksheets[2].Pagesetup.TopMargin    :=   1/0.035 ; // 列印時,上 邊距 1 cm
  Ms_ExcelAP4.Worksheets[2].Pagesetup.BottomMargin :=   1/0.035 ; // 列印時,下 邊距 1 cm
  Ms_ExcelAP4.Worksheets[2].Pagesetup.LeftMargin   := 0.5/0.035 ; // 列印時,左 邊距 0.5 cm
  Ms_ExcelAP4.Worksheets[2].Pagesetup.RightMargin  := 0.5/0.035 ; // 列印時,右 邊距 0.5 cm       請教:要由直印改為橫印要如何寫程式碼??
 
  下圖中,要改sheet名稱要如何寫程式碼??

一切無為法.如虛亦如空.如如心不動.萬法在其中

------
一切無為法.如虛亦如空.如如心不動.萬法在其中

Hi:    橫印： Ms_ExcelAP4.Worksheets[2].Pagesetup.Orientation := xlLandscape;    Sheet 更名    Ms_ExcelAP4.Worksheets[2].Name := 'WorkSeetName';     -------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

再請教一下;   如何設定.調整成為一頁長.一頁寬??    一切無為法.如虛亦如空.如如心不動.萬法在其中

------
一切無為法.如虛亦如空.如如心不動.萬法在其中

Hi:    

Ms_ExcelAP4.Worksheets[2].Pagesetup.FitToPagesWide := 1;
Ms_ExcelAP4.Worksheets[2].Pagesetup.FitToPagesTall := 1;    or    with (Ms_ExcelAP4.Worksheets[2] AS _WorkSheet).PageSetup do
    begin
        FitToPagesWide := 1;
        FitToPagesTall := 1;
    end;

-------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

為何 F9 過不去?? 設定為 一頁長寬 無法存檔嗎?? ps:當我程式執行完後.要列印時.無法自動變更為1頁長,1頁寬 ?? 一切無為法.如虛亦如空.如如心不動.萬法在其中

------
一切無為法.如虛亦如空.如如心不動.萬法在其中

Hi Water : 你的Office是幾版的Uses Excel2000試試 我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

OFFICE Version = Office 2000 SP-1 Perfessional  版本 是 Delphi 5.0 不支援嗎?? 因為出現 xlLandscape 未定義 ?? 一切無為法.如虛亦如空.如如心不動.萬法在其中

------
一切無為法.如虛亦如空.如如心不動.萬法在其中

Hi:    Miles 大大的意思是在程式中，須 Uses Excel2000 這個 Unit -------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

為何設定 一頁長一頁寬 無法存檔?? (無錯誤訊息)    ps:當我程式執行完後.use excel 開啟所存的檔案     要列印時.無法自動變更為1頁長,1頁寬 ??    ps:當我 use excel 開啟所存的檔案 . 設好為1頁長,1頁寬後 存檔    離開再從開檔案 , 會記錄之前列印設定!!            一切無為法.如虛亦如空.如如心不動.萬法在其中

------
一切無為法.如虛亦如空.如如心不動.萬法在其中

Hi:    我的 Office 是 2000，Delphi 為 6.0，程式寫法如下圖，也可以正常運作，你再試試     -------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

Hi:    好像是 Zoom 的影響，加入 Zoom := False  試試

with (Ms_ExcelAP4.Worksheets[2] AS _WorkSheet).PageSetup do
    begin
        Zoom := False;
        FitToPagesWide := 1;
        FitToPagesTall := 1;
    end;

-------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

All OK !!!  thk lot     不知可否推薦幾本書.介紹 Control Execl . 含 控制 圖表 (柱狀,圓形百分比...)    ---- water    一切無為法.如虛亦如空.如如心不動.萬法在其中

------
一切無為法.如虛亦如空.如如心不動.萬法在其中

Hi:    water，抱歉，我並沒有參考過 Delphi 的書 通常我會再 KTop 上找找相關的討論或經驗分享，大部分都出自於 delphiwww 版主之手    http://delphi.ktop.com.tw/topic.php?topic_id=25229 http://delphi.ktop.com.tw/topic.php?topic_id=22936 http://delphi.ktop.com.tw/topic.php?topic_id=22937 http://delphi.ktop.com.tw/topic.php?topic_id=27073 http://delphi.ktop.com.tw/topic.php?topic_id=27074 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=27256 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=27257 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=29495 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=28371 再配合於 Excel 中錄製巨集，看巨集的內容然後於 Delphi 中測試指令 我也不知市面上使否有相關書籍 -------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman