WGLProcstat2Query.Close; WGLProcstat2Query.SQL.Clear; WGLProcstat2Query.SQL.Add(’select * from dbo.gdsinfomt, dbo.procstat’); WGLProcstat2Query.SQL.Add(’where ((dbo.gdsinfomt.gdsno=:E_gdsno) and (dbo.procstat.gdsno=:E_gdsno))’); //Roger 20091201 動態參數若使用相同的參數名稱兩個以上，請改用陣列方式，並把每個參數都當成獨立參數 WGLProcstat2Query.Parameters[0].Value:= Trim(GdsNoEdit.Text); WGLProcstat2Query.Parameters[1].Value:= Trim(GdsNoEdit.Text); WGLProcstat2Query.Open; [...]
|
||||||
|
程式Source 然後重點在於我給了兩個變數 var ExcelApp,Excelall : Variant; ExcelApp:=CreateOleObject(’Excel.Application’); <==創建EXCEL應用程式 ExcelApp.Workbooks.Open(tmpFilename); <==正常開啟檔案 Excelall := ExcelApp.Workbooks.Open(tmpFilename);//可列印全部SHEET <==把開啟檔案的狀態給Excelall 最後再使用 Excelall.printout 即可全部的Sheet都列印出來，關閉Excel還是要用ExcelApp.quit來關，而不是 Excelall.quit。 列印作用中的sheet則用 ==> ExcelApp.ActiveSheet.PrintOut 即可 要預覽可帶參數 ==> Excelall.printout(Copies:=1, Collate:=True, [...] |
||||||
|
Copyright © 2012 No Money No Honey - All Rights Reserved No Money No Honey is Digg proof thanks to caching by WP Super Cache |
||||||
近期迴響