如何强制excel分页 - Delphi K.Top 討論區

發文回覆瀏覽次數：2558

推到 Plurk!

推到 Facebook!

如何强制excel分页

答題得分者是：star

seagal2222 一般會員發表：24 回覆：48 積分：14 註冊：2003-03-04 發送簡訊給我	#1 引用回覆回覆發表時間：2003-07-29 08:33:30 IP:202.97.xxx.xxx 未訂閱有这样一个报表。读数据库人员信息，然后转到excel。要求每人出一个表（每个人的信息量是不同的，可能是一张表，或是多张表），算法是每循环一个人，导出一个表，要求一次导出所有人的表，怎样在一个人结束时强制excel分页呢？请各位高手指点
hahalin 版主發表：295 回覆：1698 積分：823 註冊：2002-04-14 發送簡訊給我	#2 引用回覆回覆發表時間：2003-07-29 09:10:23 IP:210.243.xxx.xxx 未訂閱 try the vba for excel ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell There is a raising fire in my heart tonight,growing higher and higher in my soul I want to ride on the silver dove far into the night,till I make you take me on your mighty wing,take me on your mighty wing to cross the sky
seagal2222 一般會員發表：24 回覆：48 積分：14 註冊：2003-03-04 發送簡訊給我	#3 引用回覆回覆發表時間：2003-07-29 09:24:00 IP:202.97.xxx.xxx 未訂閱非常感谢哈哈林能不能解释一下： ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell 尤其是ActiveCell指的是什么？是特定的单元格吗？
seagal2222 一般會員發表：24 回覆：48 積分：14 註冊：2003-03-04 發送簡訊給我	#4 引用回覆回覆發表時間：2003-07-29 09:38:37 IP:202.97.xxx.xxx 未訂閱我是用delphi作数据库 ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell 这两句话在delphi里怎么写呢？
hahalin 版主發表：295 回覆：1698 積分：823 註冊：2002-04-14 發送簡訊給我	#5 引用回覆回覆發表時間：2003-07-29 10:12:09 IP:210.243.xxx.xxx 未訂閱引言: 我是用delphi作数据库 ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell 这两句话在delphi里怎么写呢？在delphi裡面是傳遞這些vba內容到excel,你們用excel來輸出報表,應該不至於不知道怎麼由delphi傳遞vba到excel吧? There is a raising fire in my heart tonight,growing higher and higher in my soul I want to ride on the silver dove far into the night,till I make you take me on your mighty wing,take me on your mighty wing to cross the sky
seagal2222 一般會員發表：24 回覆：48 積分：14 註冊：2003-03-04 發送簡訊給我	#6 引用回覆回覆發表時間：2003-07-29 11:27:59 IP:202.97.xxx.xxx 未訂閱我是把 ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell 直接写到delphi（利用excel控件，ExcelApplication1， ExcelWorksheet1，， TExcelWorkbook）里，没有通过vba,到底这两句话在delphi里怎么写呢？这个问题对我很重要，非常感谢！
seagal2222 一般會員發表：24 回覆：48 積分：14 註冊：2003-03-04 發送簡訊給我	#7 引用回覆回覆發表時間：2003-07-30 10:54:03 IP:202.97.xxx.xxx 未訂閱难道我的问题没说明白？ ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell 这两句话我也可以从excel宏中得到，但不知道在delphi中怎么用（总不能让我原样写道delphi里）。所谓会者不难，请高手指点
seagal2222 一般會員發表：24 回覆：48 積分：14 註冊：2003-03-04 發送簡訊給我	#8 引用回覆回覆發表時間：2003-07-30 10:54:49 IP:202.97.xxx.xxx 未訂閱难道我的问题没说明白？ ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell 这两句话我也可以从excel宏中得到，但不知道在delphi中怎么用（总不能让我原样写道delphi里,尤其不理解Before:=ActiveCell）。所谓会者不难，请高手指点
seagal2222 一般會員發表：24 回覆：48 積分：14 註冊：2003-03-04 發送簡訊給我	#9 引用回覆回覆發表時間：2003-07-30 11:03:26 IP:202.97.xxx.xxx 未訂閱比如现在用a4纸打印，有的人打印了一页，分页，有的人只打印了两行，这时也要强制分页
star 初階會員發表：37 回覆：93 積分：36 註冊：2002-07-18 發送簡訊給我	#10 引用回覆回覆發表時間：2003-07-30 14:30:03 IP:211.72.xxx.xxx 未訂閱引言: 比如现在用a4纸打印，有的人打印了一页，分页，有的人只打印了两行，这时也要强制分页 if 條件(不同人) then ExcelApp.WorkSheets[1].Rows[2].PageBreak := 1;//在第2行之前插入分頁符

系統時間：2024-05-05 15:55:06

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！

5151線上健康照護網 | 台灣西醫網 | 台灣中醫網 | 台灣牙科網 | 台灣照護網 | 趴趴狗旅遊網
大花蓮旅遊網 | 大花蓮民宿網 | 花蓮旅遊網 | 花蓮旅遊 | 花蓮旅遊 | 花蓮住宿
花蓮民宿網 | 花蓮旅遊 | 花蓮住宿 | 花蓮民宿 | 花蓮旅遊 | 花蓮民宿
花蓮住宿 | 大南投旅遊網 | 大南投民宿網 | 日月潭風景區 | 日月潭旅遊網 | 日月潭民宿網
日月潭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網 | 宜蘭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網
宜蘭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網 | 宜蘭住宿網 | 台東旅遊網 | 台東民宿網
台東住宿網 | 台東旅遊網 | 台東民宿網 | 台東住宿網 | 台東旅遊 | 台東民宿
台東住宿 | 綠島旅遊網 | 綠島民宿網 | 綠島住宿網 | 綠島旅遊網 | 綠島民宿網
綠島住宿網 | 綠島旅遊網 | 綠島民宿網 | 綠島住宿網 | 集集旅遊網 | 集集民宿網
集集住宿網 | 關子嶺旅遊網 | 關子嶺民宿網 | 白河旅遊網 | 白河民宿網 | 心脈大師
尊榮牙醫診所 |