Hi all,

I'm looking for a way to print a Excel sheet into a PDF formatted
file.
the used PDF printer is "PDF-XChange 3.0"
Due to company policy, i don't know for sure if i can use other
software than the one already installed.

I use now following code:

Sub CopyToNewSheet()
'
Sheets("Foutdetectie").Select
Sheets("Foutdetectie").Copy After:=Sheets(2)
Sheets("Foutdetectie (2)").Select
Range("A1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"PDF-XChange 3.0 on Ne00:", printtofile:=True,
prtofilename:=FileName
Application.DisplayAlerts = False
Sheets("Foutdetectie (2)").Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Sheets("Foutdetectie").Select
Range("A1").Select
End Sub

the problems (2) i encounter are as follow:
When i invoke the following code,

ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"PDF-XChange 3.0 on Ne00:", printtofile:=True,
prtofilename:=FileName

a "Save As" form appears, and i have to enter the filename manually.
I would like to have it all done by the macro.
FileName is a variable getting its info from a function witch work.
There's also a checkbox " Run Viewer Application After Saving' active,
witch i need to checked out.

When i delete the copy of the orriginal sheet, i get an error
message : "Can't enter break mode at this time"

Anyone who can help me with this?
Regards,
ludo

Have you tried turning off alerts before printing?

Application.DisplayAlerts = False
Print something
Application.DisplayAlerts = True

Mike F
"Ludo" wrote in message
...
Hi all,

I'm looking for a way to print a Excel sheet into a PDF formatted
file.
the used PDF printer is "PDF-XChange 3.0"
Due to company policy, i don't know for sure if i can use other
software than the one already installed.

I use now following code:

Sub CopyToNewSheet()
'
Sheets("Foutdetectie").Select
Sheets("Foutdetectie").Copy After:=Sheets(2)
Sheets("Foutdetectie (2)").Select
Range("A1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"PDF-XChange 3.0 on Ne00:", printtofile:=True,
prtofilename:=FileName
Application.DisplayAlerts = False
Sheets("Foutdetectie (2)").Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Sheets("Foutdetectie").Select
Range("A1").Select
End Sub

the problems (2) i encounter are as follow:
When i invoke the following code,

ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"PDF-XChange 3.0 on Ne00:", printtofile:=True,
prtofilename:=FileName

a "Save As" form appears, and i have to enter the filename manually.
I would like to have it all done by the macro.
FileName is a variable getting its info from a function witch work.
There's also a checkbox " Run Viewer Application After Saving' active,
witch i need to checked out.

When i delete the copy of the orriginal sheet, i get an error
message : "Can't enter break mode at this time"

Anyone who can help me with this?
Regards,
ludo

On 1 sep, 15:17, "Mike Fogleman" wrote:
Have you tried turning off alerts before printing?

Application.DisplayAlerts = False
Print something
Application.DisplayAlerts = True

Mike F"Ludo" wrote in message

...


Yes,i did, but no luck.
In the mean time, i installed the free PDFCreator (http://
sourceforge.net/projects/pdfcreator/) in combination with some code
from the Excelguru.CA site (http://www.excelguru.ca/node/21), and this
works pretty good.
Don't forget to select the PDFCreator library in the VBA references!

Just a little problem with a public variable who gets reset after
running my code.
Perhaps the problem is due to the fact i renamed the modules (instead
of "module1", "module2", its now "CreatePDF", "Main", ...) and the
public variable doesn't reside in the right module.
At opening of the Excel file, i run a macro (workbook_open) to define
the path where i would like to place the PDF files (on a server).
Then i fill-out a excel sheet, and press on a button to create the PDF
file and save it on the server.
This works fine, but my variable holding the path is empty when my
code exits the CreatePDF subroutine.
Have to check this.

Regards,
Ludo

Hi all,

I'm looking for a way to print a Excel sheet into a PDF formatted
file.
the used PDF printer is "PDF-XChange 3.0"
Due to company policy, i don't know for sure if i can use other
software than the one already installed.

I use now following code:

Sub CopyToNewSheet()
'
* *Sheets("Foutdetectie").Select
* *Sheets("Foutdetectie").Copy After:=Sheets(2)
* *Sheets("Foutdetectie (2)").Select
* *Range("A1").Select
* *ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
* * * *"PDF-XChange 3.0 on Ne00:", printtofile:=True,
prtofilename:=FileName
* * Application.DisplayAlerts = False
* *Sheets("Foutdetectie (2)").Select
* *ActiveWindow.SelectedSheets.Delete
* *Application.DisplayAlerts = True
* *Sheets("Foutdetectie").Select
* *Range("A1").Select
End Sub

the problems (2) i encounter are as follow:
When i invoke the following code,

* *ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
* * * *"PDF-XChange 3.0 on Ne00:", printtofile:=True,
prtofilename:=FileName

a "Save As" form appears, and i have to enter *the filename manually.
I would like to have it all done by the macro.
FileName is a variable getting its info from a function witch work.
There's also a checkbox " Run Viewer Application After Saving' active,
witch i need to checked out.

When i delete the copy of the orriginal sheet, i get an error
message : "Can't enter break mode at this time"

Anyone who can help me with this?
Regards,
ludo- Tekst uit oorspronkelijk bericht niet weergeven -

- Tekst uit oorspronkelijk bericht weergeven -