Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
BeforePrint event
How can I program a macro so that, when I print a workbook, it will
automatically open and then print other documents to which I have linked? Thank you in advance. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
BeforePrint event
I'd suggest that you write a print macro that goes something like this:
Sub MasterPrint Activesheet.Printout Workbooks("SubsidiaryBook1.xls").Open Activesheet.Printout ActiveWorkbook.Close False Workbooks("SubsidiaryBook2.xls").Open Activesheet.Printout ActiveWorkbook.Close False 'etc. End Sub -- Jim Rech Excel MVP "EnglishTeacher" wrote in message ... | How can I program a macro so that, when I print a workbook, it will | automatically open and then print other documents to which I have linked? | | Thank you in advance. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
BeforePrint event
Thank you for this but, going further, in the macro, how can I designate
("SubsidiaryBook1.xls") to be a document that is linked to. Specifically, I want to put a checkbox in the initial Excel file that, if checked, will activate a link to a specific document to Open and then Print. Thank you. "Jim Rech" wrote: I'd suggest that you write a print macro that goes something like this: Sub MasterPrint Activesheet.Printout Workbooks("SubsidiaryBook1.xls").Open Activesheet.Printout ActiveWorkbook.Close False Workbooks("SubsidiaryBook2.xls").Open Activesheet.Printout ActiveWorkbook.Close False 'etc. End Sub -- Jim Rech Excel MVP "EnglishTeacher" wrote in message ... | How can I program a macro so that, when I print a workbook, it will | automatically open and then print other documents to which I have linked? | | Thank you in advance. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
BeforePrint event
If your question is - how do I know the names of the linked workbooks, if
any - then have a look at this: Sub a() Dim Links As Variant Dim Counter As Integer Links = ActiveWorkbook.LinkSources(xlExcelLinks) If Not IsEmpty(Links) Then For Counter = 1 To UBound(Links) MsgBox Links(Counter) ''Open/Print/Close Next End If End Sub -- Jim Rech Excel MVP "EnglishTeacher" wrote in message ... | Thank you for this but, going further, in the macro, how can I designate | ("SubsidiaryBook1.xls") to be a document that is linked to. Specifically, I | want to put a checkbox in the initial Excel file that, if checked, will | activate a link to a specific document to Open and then Print. | | Thank you. | | "Jim Rech" wrote: | | I'd suggest that you write a print macro that goes something like this: | | Sub MasterPrint | Activesheet.Printout | Workbooks("SubsidiaryBook1.xls").Open | Activesheet.Printout | ActiveWorkbook.Close False | Workbooks("SubsidiaryBook2.xls").Open | Activesheet.Printout | ActiveWorkbook.Close False | 'etc. | End Sub | | -- | Jim Rech | Excel MVP | "EnglishTeacher" wrote in message | ... | | How can I program a macro so that, when I print a workbook, it will | | automatically open and then print other documents to which I have linked? | | | | Thank you in advance. | | | |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
BeforePrint event
Thanks. I'll give that a try.
"Jim Rech" wrote: If your question is - how do I know the names of the linked workbooks, if any - then have a look at this: Sub a() Dim Links As Variant Dim Counter As Integer Links = ActiveWorkbook.LinkSources(xlExcelLinks) If Not IsEmpty(Links) Then For Counter = 1 To UBound(Links) MsgBox Links(Counter) ''Open/Print/Close Next End If End Sub -- Jim Rech Excel MVP "EnglishTeacher" wrote in message ... | Thank you for this but, going further, in the macro, how can I designate | ("SubsidiaryBook1.xls") to be a document that is linked to. Specifically, I | want to put a checkbox in the initial Excel file that, if checked, will | activate a link to a specific document to Open and then Print. | | Thank you. | | "Jim Rech" wrote: | | I'd suggest that you write a print macro that goes something like this: | | Sub MasterPrint | Activesheet.Printout | Workbooks("SubsidiaryBook1.xls").Open | Activesheet.Printout | ActiveWorkbook.Close False | Workbooks("SubsidiaryBook2.xls").Open | Activesheet.Printout | ActiveWorkbook.Close False | 'etc. | End Sub | | -- | Jim Rech | Excel MVP | "EnglishTeacher" wrote in message | ... | | How can I program a macro so that, when I print a workbook, it will | | automatically open and then print other documents to which I have linked? | | | | Thank you in advance. | | | |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Print preview error from BeforePrint macro | Excel Discussion (Misc queries) | |||
BeforePrint macro | Excel Discussion (Misc queries) | |||
Help with BeforePrint | Excel Programming | |||
OnTime event not firing in Workbook_Open event procedure | Excel Programming |