Can i print and make pdf at a time

[gsrikanth]

Can i print and make pdf at a time

our project whole on excel sheet i want make e-book, deliverable at the same time

[macropod]

If you're very quick ...

Of course, if you save to PDF, you can then print the PDF at your leisure.

[gsrikanth]

Originally Posted by macropod

If you're very quick ...

Of course, if you save to PDF, you can then print the PDF at your leisure.

sir we have to gave many deliverables back by back (making page setup its it take age) we have no time to make e-book,
i.e., 100 page booklet relating to designs

[macropod]

You are not explaining the issue clearly. Excel can certainly create a PDF and print the file at essentially the same time. Even with a macro, though, one action must be done before the other. I cannot see what an e-book or the number of pages has to do with this. It doesn't matter whether you want to save to PDF or print - you'll still have to do your page setup and the more pages you have the longer that will take.

[gsrikanth]

Originally Posted by macropod

You are not explaining the issue clearly. Excel can certainly create a PDF and print the file at essentially the same time. Even with a macro, though, one action must be done before the other. I cannot see what an e-book or the number of pages has to do with this. It doesn't matter whether you want to save to PDF or print - you'll still have to do your page setup and the more pages you have the longer that will take.

first time i have to select PRINTER
second time i have to select ADOBE

i need essetially the same time, i need that macro
do one after other

[macropod]

You could do that with a macro like:

Sub Demo()
ActiveSheet.PrintOut
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Split(ActiveWorkbook.Name, ".")(0)
End Sub

[gsrikanth]

Originally Posted by macropod

You could do that with a macro like:

Sub Demo()
ActiveSheet.PrintOut
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Split(ActiveWorkbook.Name, ".")(0)
End Sub

print is comming
but pdf not preparing
where is the path of pdf will store?

[macropod]

The PDF will be saved at whatever your default save location is for Excel. If you want to change it to the same folder as the workbook, change:
ActiveWorkbook.Name
to:
ActiveWorkbook.FullName