Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error 1004 in printing .ps (postscript) file from .xls file
Hi,
I have a program which copies excel file to postscript .ps file. The code works fine for small number of files. But if I try to run it for 5,000-6,000 excel files the programs fail throwing 1004 error. I am guessing that it could be run time memory problem. Could somebody suggest me solution for this? code snippet ========================================= ReportFileName = ReportsPath & ReportFile Application.Workbooks.Open (ReportFileName) PortName = Space(255) PortName = NTS(PortName) 'NTS is function which returns por name 'create the distiller printer name. printer = "Acrobat Distiller on " & PortName ' strMenuFilePS = Replace(ReportFile, ".xls", ".ps") strMenuFilePS = "E:\Test\" & strMenuFilePS Application.ActiveWindow.SelectedSheets.PrintOu ActivePrinter:=printer, PrintToFile:=True, PrToFileName:=strMenuFilePS Application.ActiveWorkbook.Close ReportFile = "" ReportFile = Dir ' Get next entry. ============================================== Thanks in advance Meghan -- Message posted from http://www.ExcelForum.com |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error 1004 in printing .ps (postscript) file from .xls file
It probably is a memory problem associated with printing. Break your
bundles of files into smaller groups (a number less than when your program crashes). You might need to reboot between printing bundles. -- Regards, Tom Ogilvy chemburkar wrote in message ... Hi, I have a program which copies excel file to postscript .ps file. The code works fine for small number of files. But if I try to run it for 5,000-6,000 excel files the programs fails throwing 1004 error. I am guessing that it could be run time memory problem. Could somebody suggest me solution for this? code snippet ========================================= ReportFileName = ReportsPath & ReportFile Application.Workbooks.Open (ReportFileName) PortName = Space(255) PortName = NTS(PortName) 'NTS is function which returns port name 'create the distiller printer name. printer = "Acrobat Distiller on " & PortName ' strMenuFilePS = Replace(ReportFile, ".xls", ".ps") strMenuFilePS = "E:\Test\" & strMenuFilePS Application.ActiveWindow.SelectedSheets.PrintOut ActivePrinter:=printer, PrintToFile:=True, PrToFileName:=strMenuFilePS Application.ActiveWorkbook.Close ReportFile = "" ReportFile = Dir ' Get next entry. ============================================== Thanks in advance Meghana --- Message posted from http://www.ExcelForum.com/ |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error 1004 in printing .ps (postscript) file from .xls file
Thanks for reply.
In my case , it is not possible to break the file creation in the smal batches. Is is possible to free the memory in excel code only -- Message posted from http://www.ExcelForum.com |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
file format or file extension is not valid...error message | Excel Discussion (Misc queries) | |||
Open Excel file get error with file names that have spaces in the | Setting up and Configuration of Excel | |||
"Unable to read file" error message when opening a Excel file that contains a PivotTable report. | Charts and Charting in Excel | |||
Error 1004 when I open a file | Excel Programming | |||
runtime error 1004 when opening excel file via VBA in a browser | Excel Programming |