Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win


EXLWS.PrintOut problem!!!!!!!!

Posted on 2006-10-25
Medium Priority
Last Modified: 2010-04-16
Hello all,

Im stuck in a pretty bad situation here, I wrote a program that will export data to an excel spreadsheet and then print that sheet without the user ever seeing Excel.  When running the program on my computer everything works great but when I install the program on another machine and execute the command the program crashes.  Below is a sample of the code im using:

========BEGIN CODE==========
Set appEXL2 = New excel.Application
Set EXLwb2 = appEXL2.Workbooks.Open(GetWinDir & "\Cons Manager\MASTER CONS.xls")
Set EXLws2 = EXLwb2.Worksheets(1)
EXLws2.Visible = xlSheetVisible
With EXLws2
    .Cells(8, 6).Value = MDate
    .Cells(11, 6).Value = MRoute
    .Cells(14, 6).Value = MOrig
    .Cells(17, 6).Value = MDest
    .Cells(21, 2).Value = MCNUM
End With
========END CODE==========

Any ideas!?!?  This one is pretty urgent!
Question by:zraptor
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 2
LVL 18

Expert Comment

by:Jose Parrot
ID: 17809469

Sounds the file isn't present and the program crashs due commands to Excel for an unopen file. Or the default printer isn't available.

You may debug it with a step by step execution to discover where the problem occurs. For exemple, by creating a keyboard entry between each statement with a message. Something like "OK, file open", "Worksheet 1 OK", "Visible OK", etc.

Check the file in the new machine, read only? Need macros? Correct path?
Also if the default printer is online and corresponds to the actual printer.

LVL 18

Expert Comment

by:Jose Parrot
ID: 17814335

By checking the code in a VB 6 environment, I've modified it, as in the below code, which runs properly. (I have created a button to start the code)

Private Sub Command1_Click()

Dim appEXL2 As Object
Dim EXLwb2 As Object
Dim EXLws2 As Object

Set appEXL2 = CreateObject("Excel.Application")
Set EXLwb2 = appEXL2.Workbooks.Open("C:\PrintOutTest.xls")
Set EXLws2 = EXLwb2.Worksheets(1)

' EXLws2.Visible = xlSheetVisible

' The variables were modified for testing purposes
With EXLws2
    .Cells(8, 6).Value = "MDate2"
    .Cells(11, 6).Value = "MRoute2"
    .Cells(14, 6).Value = "MOrig2"
    .Cells(17, 6).Value = "MDest2"
    .Cells(21, 2).Value = "MCNUM2"
End With

' This will print the worksheet in the default printer

' Remember to close the file
' As it was modified, will ask for saving
result2 = appEXL2.Workbooks.Close()

End Sub


Author Comment

ID: 17824988
Will that code still work if I modify it to allow for the user to select a printer to print to?
LVL 18

Accepted Solution

Jose Parrot earned 2000 total points
ID: 17825608

No. EXLwb2.PrintOut always directs the output to the default printer.

If you have more than one printer and want the user to select which one to print the document, then you should write a new dialog. Take a look at http://support.microsoft.com/kb/322710


Author Comment

ID: 17872743
Ok, The default printer thing was the problem, Thanks a lot for the help!!!!

Featured Post

New feature and membership benefit!

New feature! Upgrade and increase expert visibility of your issues with Priority Questions.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

If you’re thinking to yourself “That description sounds a lot like two people doing the work that one could accomplish,” you’re not alone.
In this post we will learn how to connect and configure Android Device (Smartphone etc.) with Android Studio. After that we will run a simple Hello World Program.
In this fourth video of the Xpdf series, we discuss and demonstrate the PDFinfo utility, which retrieves the contents of a PDF's Info Dictionary, as well as some other information, including the page count. We show how to isolate the page count in a…
In this seventh video of the Xpdf series, we discuss and demonstrate the PDFfonts utility, which lists all the fonts used in a PDF file. It does this via a command line interface, making it suitable for use in programs, scripts, batch files — any pl…

610 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question