Database Search
If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.
TechHome
OLE with Excel
 |
- Access OLE Query export to Excel
- Access table query to Excel
- Accessing an Existing Copy of Excel
- Add Comment Excel
- Add New Worksheet
- Add Worksheet
- Animate Excel office assistant
- Automating Excel Tutorial
- Basics with Excel OLE
- Change Currency Formats in Excel
- Check for Empty Cell in Excel
- Check if Column is Hidden
- Close Excel Object
- COM Test Use with Excel WorksheetFunction Object
- Consolidate Excel Workbooks
- convert the HISTOGRAM sheet to BMP or GIF
- CopyFromRecordset Loss of Formatting
- Create Excel Addin
- Create XL Graph
- Cutting and Pasting a Cell in Excel
- Delete Column
- Determine Excel File Format Type
- Determine First and Last Row and Column Used
- Determine Version That An Excel File Was Saved In
- Determine Workbook or WorkSheet Protection
- Determine Worksheet Names in Excel Workbook
- Disable Security Warning
- Display Color Chart
- Display Column and Row Data
- Display Users on Excel Workbook
- Easy CrossTabbed Spreadsheet Creation
- Enumerate Fonts in Excel
- Enumerating Excel Commandbar Controls
- Excel - constants
- Excel - Signature Worksheet
- Excel - Simple Conditional Column Hiding
- Excel 2000 - Inserting Hyperlinks with OLE
- Excel 2003 Tips
- Excel 2007 and Windows Server 2008 x64 Problem
- Excel and SaveAs Method
- Excel AutoFilter Method
- Excel Custom Variables
- Excel Dynamic Range Simple Example
- Excel File Conversion Using SaveAs
- Excel Filtering Function
- Excel Get Formatted Tables From Web Pages
- Excel Move Sheet
- Excel ObjectGet and UAC
- Excel OLE - List Named Ranges
- Excel Paste Special
- Excel Power Point Example
- Excel Print Landscape Scaled problem
- Excel Proper Case
- Excel Replace String
- Excel Time Format
- Excel to PDF
- Excel unlock some cells in a protected worksheet
- Excel Worksheet Change
- Export Excel Data to Tab Delimited Text File
- Exporting Excel Pictures
- Extract Data from specific Range in Closed Excel WorkBook
- Fastest Way to Copy Data To Excel
- Find Method in Excel
- Finding Data in Excel Cells
- Format Excel Column
- Get All Rows of Data in a Column
- Get Data Row by Row in Excel
- Get SaveAs to Close without Alert Box
- Getting Rowcount from Excel Database
- Grab Data from All WOrksheets in a Workbook
- Handle Errors in Cells
- Hide - Unhide Columns in Excel
- How to Execute Excel Function via OLE - COM
- Import a text file into an Excel Column
- Import CSV file into Excel
- Import Tab Delimited Text File
- Insert a Tracking Module in Excel Workbooks
- Inserting Pagebreaks into Excel Sheet
- Load WIL Array into Excel
- Making a Chart in Excel
- Number of pages in Excel worksheets
- ObjectGet and Excel
- OLE and Excel - Adding Cells to Workbook
- OLE and Excel - Spreadsheet Calculation
- OLE and Excel - The Basics
- OLE and Excel Animation Example
- OLE and Excel BuiltinDocumentProperties
- OLE Excel - Cutting and pasting cells problem
- OLE Excel and Outlook Examples
- OLE Excel Example that reads text from cells
- OLE with Excel and Named Parameters
- OLE with Parameters and Excel
- Open Existing Excel File And Insert Row
- Open Password Protected Excel file via OLE
- Playing Around with ADO and Updating dBase Files
- Playing Around with ADO and Updating Excel Columns
- Print All Sheets in a WorkBook
- Print Excel Worksheets
- Printing Workbooks from Excel
- Push Code into Excel using OLE
- Put Excel Column into an Array
- Reference a Specific Excel Workbook Instance
- Rename Existing Excel Worksheet
- Resize child windows in Excel
- Row Count
- Run an Excel Macro
- Run Excel Macro
- Save XLS file as a CSV file
- Search Excel for Cells and Items
- Search Excel Spreadsheet
- Set AutoSize for Cell Comment
- Set Cell Borders and Font
- Set Excel Default Path on Start-up
- Set Number of Sheets in Workbook
- Setting Proper Case in Range of Cells
- Showing the Value of Excel Dynamic Ranges
- Simple Excel Read
- Size of an EXCEL spreadsheet
- Sort Columns in XLS
- Sorting a Variable Range in Excel
- Sorting Multiple Columns
- Sorting Worksheets inside a Workbook
- SumProduct Function in Excel
- Testing the WorkSheetFunction Object
- TextToColumns FieldInfo Embedded Array Parameter Issue
- UDF for Excel Constant References
- UDF to Determine Worksheet Names in Excel Workbook
- Update Excel Cells
- Updating Worksheet Links
- Wait for Excel Add-in to Load
- Winbatch ADO Script - For EXCEL
- Working with Excels Built-in Dialogs
- Wrap Text in Excel Cell
- Write Data to an XLS file
Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
Excel to PDF
Update: Check out the 2007 Microsoft Office Add-in: Microsoft Save as PDF http://www.microsoft.com/downloads/details.aspx?FamilyId=F1FC413C-6D89-4F15-991B-63B07BA5F2E5&displaylang=en
;////////////////////////////////////////////////////////////////////////////////
;// WINBATCH - Excel Script to Print WorkSheet To PDF File with OLE Code
;////////////////////////////////////////////////////////////////////////////////
;// 1. Optionally Set/Reset INI Entries for Print Properties. [suggested]
;// 2. Sets Printer and Outputs Sheet 1
;// 3. VBA Code to Print all sheets and combine to single PDF suggested
;//
;//
;// Stan Littlefield update:04/01/2001
;////////////////////////////////////////////////////////////////////////////////
;ini settings - sometbing like
;cINI = strcat(DirGet(),"XCELPDF.INI")
;pArray = ArrDimension(9,0,0,0,0)
;pArray[0] = 0
;pArray[1] = 0
;pArray[2] = 2
;pArray[3] = 1
;pArray[4] = 0
;pArray[5] = 0
;pArray[6] = 841
;pArray[7] = 595
;pArray[7] = 1
;IniWritePvt("Settings","cpmarginwhole",pArray[0],cINI)
;IniWritePvt("Settings","cpmarginpart",pArray[1],cINI)
;IniWritePvt("Settings","cpunits",pArray[2],cINI)
;IniWritePvt("Settings","custom",pArray[3],cINI)
;IniWritePvt("Settings","bDocInfo",pArray[4],cINI)
;IniWritePvt("Settings","bExecViewer",pArray[5],cINI)
;IniWritePvt("Settings","cpheightwhole",pArray[6],cINI)
;IniWritePvt("Settings","cpwidewhole",pArray[7],cINI)
;IniWritePvt("Settings","orient",pArray[8],cINI)
cXLS = AskFileName("Select Excel Template",".\","Excel Files|*.xls|","*.xls",1)
:start
If cXLS == ""
Return
Endif
cOUT = StrReplace( StrUpper(cXLS), ".XLS",".PDF")
IF FileExist(cOUT) == @TRUE
FileDelete(cOUT)
Endif
cText = strcat("Opening File...",@CRLF)
BoxOpen("Outputting %cXLS% to PDF",cText)
DB = ObjectOpen("Excel.Application")
DB.Visible = @FALSE
DB.UserControl = @FALSE
oAPP = DB.Workbooks
oAPP.Open("%cXLS%")
oACT = DB.ActiveWorkbook
oWS = DB.Worksheets(1)
oWS.Activate
currentPrinter = DB.ActivePrinter
DB.ActivePrinter = "Acrobat PDFWriter on LPT1:"
cName = oWS.Name
cText = strcat(cText,"Printing WorkSheet:%cName%",@CRLF)
Boxtext(cText)
oWS.PrintOut
DB.ActivePrinter = currentPrinter
BoxShut()
ObjectClose(oWS)
ObjectClose(RS)
oAPP.Close()
ObjectClose(oAPP)
ObjectClose(DB)
exit
:cancel
cXLS == ""
Goto start
; VBA Code For printing all sheets and combining them into a
; single PDF
For i = 1 To Worksheets.Count()
Set wks = Worksheets(i)
pdfName$ = TARGET_DIR & "wks" & i & ".pdf"
WriteIniFile "PDFFilename", pdfName$
Worksheets(i).PrintOut
Next
Set pdDoc1 = CreateObject("AcroExch.PDDoc")
Set pdDoc2 = CreateObject("AcroExch.PDDoc")
szTarget = TARGET_DIR & "wks1.pdf"
Call pdDoc1.Open(szTarget)
For i = 2 To Worksheets.Count()
n = pdDoc1.GetNumPages()
bOK = pdDoc2.Open(TARGET_DIR & "wks" & i & ".pdf")
bOK = pdDoc1.InsertPages(n - 1, pdDoc2, 0, pdDoc2.GetNumPages(), False)
pdDoc2.Close
Kill TARGET_DIR & "wks" & i & ".pdf"
bOK = pdDoc1.Save(1, szTarget)
Next i
CleanUp:
pdDoc1.Close
Set pdDoc1 = Nothing
Set pdDoc2 = Nothing
Article ID: W16615
File Created: 2007:07:20:08:53:58
Last Updated: 2007:07:20:08:53:58