Hello Dan, thank you for your videos. I want to use this feature to print a worksheet to PDF, without having to change the printer selected to "Adobe PDF". Is there a way to do that using VBA? Thanks
Here is a sample for those of you who might be interested. Sub iActiveSheet_Print() ' First choose a printer Application.Dialogs(xlDialogPrinterSetup).Show ' Make final arrangements and setup ActiveSheet.PrintPreview ' Print like there is no tomorrow ActiveSheet.PrintOut End Sub
Good job, enjoyed all the troubleshooting. Nothing ever works perfect the first time and you show how to resolve stuff. Hope you get the printer working. Funny, where did you get the print out idea? Hmmm? :)
Merry Christmas everyone. I hope God blesses you richly this upcoming year. Remember, you ARE a success!! Believe it, be it! Blessings my friends!! Dan
That's a nice piece of code you got there! Problem is, I lose comma decimal separator after .PrintOut Preview.=TrueWhen i set to False, everything is Ok. After nearly 3 years still searching for solution, and solution isn't Application.UseSystemSeparators=False ....
Hey Dan, thanks for the Great Videos. I did the same think you're doing in this video. and I don't have problems with the code. my code read has follow: Private Sub CommandButton4_Click() Dim r As Integer r = InputBox("Cuantas Copias desea ? ", "Cantidad") Sheet1.PrintOut copies:=r, preview:=True Sheet1.PrintOut End Sub that allows you to see the preview and once closed it prints the qty in store in the variable r the difference is I'm not using a form to do it have a nice day
Thanks for all your amazing videos!
Can I create a button to print external pdf file on desktop or I can't?
Hello Dan, thank you for your videos. I want to use this feature to print a worksheet to PDF, without having to change the printer selected to "Adobe PDF". Is there a way to do that using VBA?
Thanks
.... i want to share you can also press in the keyboard if you lock up.
Can I create a VBA that you can print to certain printer? But also Print copies based off of a cell value
Here is a sample for those of you who might be interested.
Sub iActiveSheet_Print()
' First choose a printer
Application.Dialogs(xlDialogPrinterSetup).Show
' Make final arrangements and setup
ActiveSheet.PrintPreview
' Print like there is no tomorrow
ActiveSheet.PrintOut
End Sub
awesome VBA trick.
I use for several clients.
It seems to fail on MAC-OS can you help?
Good job, enjoyed all the troubleshooting. Nothing ever works perfect the first time and you show how to resolve stuff. Hope you get the printer working. Funny, where did you get the print out idea? Hmmm? :)
Victor, thank you!! Great tips! Dan
Thanks for the lesson...you make it easy to understand...
Merry Christmas everyone. I hope God blesses you richly this upcoming year. Remember, you ARE a success!! Believe it, be it! Blessings my friends!! Dan
That's a nice piece of code you got there! Problem is, I lose comma decimal separator after .PrintOut Preview.=TrueWhen i set to False, everything is Ok. After nearly 3 years still searching for solution, and solution isn't Application.UseSystemSeparators=False ....
Ctrl break will drop the macro
instead of going in the task manager and ending the application... in this way you will not loose unsave file.
Super videos, so very useful, thanks
Thanks!!!!
Am I the only who was freaked out by the use of "Sheet1.Printout. .." instead of the declared "ssheet"? :)
me too !!
Thansks
ward print buttom excel
Dam that was a mess !!!
Hey Dan, thanks for the Great Videos. I did the same think you're doing in this video. and I don't have problems with the code. my code read has follow:
Private Sub CommandButton4_Click()
Dim r As Integer
r = InputBox("Cuantas Copias desea ? ", "Cantidad")
Sheet1.PrintOut copies:=r, preview:=True
Sheet1.PrintOut
End Sub
that allows you to see the preview and once closed it prints the qty in store in the variable r
the difference is I'm not using a form to do it
have a nice day
Fanoel Gutierrez Bueno! Muchas gracias por los comentarios!
Any time :-)
clumsy...