| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA to print Word Document
Hello, I have a Macro that prints Excel Tabs in a certain order. Now I need
to know how I can print a Word Document inside this macro. Here is my macro. On Error Resume Next Application.ActivePrinter = "HP C LaserJet 4550N PCL6 on Ne01:" If Err.Number = 1004 Then Application.ActivePrinter = "hp c Laserjet 4550N PCL6 on Ne02:" Err.Clear End If Sheets("Letter").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("Cover").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("Agreement").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("Agreement").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("Cover").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("Agreement").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub I would need to have the Word Doc Print after the first "Agreement" prints. How can I do this? Thanks. |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
VBA to print Word Document
Brad
You can use the ShellExecute API as described here http://www.dicks-blog.com/archives/2.../shellexecute/ -- Dick Kusleika Excel MVP Daily Dose of Excel www.dicks-blog.com Brad wrote: Hello, I have a Macro that prints Excel Tabs in a certain order. Now I need to know how I can print a Word Document inside this macro. Here is my macro. On Error Resume Next Application.ActivePrinter = "HP C LaserJet 4550N PCL6 on Ne01:" If Err.Number = 1004 Then Application.ActivePrinter = "hp c Laserjet 4550N PCL6 on Ne02:" Err.Clear End If Sheets("Letter").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("Cover").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("Agreement").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("Agreement").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("Cover").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("Agreement").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub I would need to have the Word Doc Print after the first "Agreement" prints. How can I do this? Thanks. |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| convert excel document to word document (not a picture) | Excel Discussion (Misc queries) | |||
| how do i rotate a document or print small document on envelope | New Users to Excel | |||
| transfer data to fill a word document to print (automatically) | Excel Discussion (Misc queries) | |||
| 2 questions: Using solver in Macro AND converting to Word document to print A3 | Excel Discussion (Misc queries) | |||
| Print merge an Excel document with three worksheets to WORD Docume | Excel Programming | |||
Linear Mode
