Hello,
I have a current need to manipulate data in a workbook, and run a macro that will do some formatting, and close the workbook.
I want to add some code after the formatting, but before closing the workbook that will print the sheet to a OneNote notebook. I don't mind interacting with OneNote to tell it which notebook and section that I want it to be printed to. but now i have to run the macro, then reopen the workbook and print the sheet, then close again.
Thanks
Last edited by excelstudent74; 07-03-2019 at 02:22 PM. Reason: solved
Found this a while back...but I had to figure out what to put in the quotation marks first. To find the correct wording of the 'printer', set your active printer to OneNote and then run this...
Sub PrintToOneNote() Dim DefaultPrinter As Variant DefaultPrinter = Application.ActivePrinter Application.ActivePrinter = "Send To OneNote 2016 on nul:" ActiveWindow.SelectedSheets.PrintOut Copies:=1 Application.ActivePrinter = DefaultPrinter End SubSub GetPrinterName() MsgBox Application.ActivePrinter End Sub
Thank you Danglor. This worked very nicely
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks