Auto print document when opening

Re: Auto print document when opening

Think you need something more along the lines of;

Private Sub Workbook_Open()


Sheets("SheetNameHere").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1


End Sub

Hope that helps,
Ian

Re: Auto print document when opening

Are you getting any error messages, or is it simply that nothing is happening? Double check that your default printer is setu up correctly.

Ian

Re: Auto print document when opening

pmorris, check that your macro security setting is on medium or low or the macro won't work

Tools>Macro>Security

:rock:

Colin

Re: Auto print document when opening

Quote from pmorris

I am using Word 2000 and I want a particular document to automatically print out when I open the file. So far I can only come up with the following code:

Code

Private Sub Document_Open()
    ActiveDocument.PrintOut
End Sub

Any help is much appreciated!

Works fine for me - are macros enabled or macro security level set to medium

Re: Auto print document when opening

Quote from IanDunnett

Think you need something more along the lines of;

Code

Private Sub Workbook_Open()


Sheets("SheetNameHere").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1


End Sub

Hope that helps,
Ian

Try changing the above to read;

Private Sub Workbook_Open()


Sheets("SheetNameHere").Activate
Sheets("SheetNameHere").cells(1,1).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1


End Sub

Failing that send the print keys to the program, i.e.;

Private Sub Workbook_Open()


Sheets("SheetNameHere").Activate
Sheets("SheetNameHere").Cells(1,1).Select
Application.SendKeys ("^p")
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys ("{ENTER}")


End Sub

Let me know if it's still a problem.
Ian

Re: Auto print document when opening

Ian - this is word help and you are posting excel.