disable margin warning using Macro

Hi, I have tried copy pasting all of the vba code to disable the margins warning of MS word but to no avail. Can someone let me know what I'm doing wrong?

Thank you in advance! This is a simple print function:

Sub Macro2()
'
' Macro2 Macro
'
Application.DisplayAlerts = wdAlertsNone
ActivePrinter = "EPSON L3110 Series (Copy 1)"


Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0

End Sub

See: Print Without Margins Warning (thedoctools.com)

Quote:

---

Originally Posted by macropod

See: Print Without Margins Warning (thedoctools.com)

---

thanks, but for some reason, this code doesn't work with MS word 2010.

Did you change:
Background:=True
in your code to:
Background:=False

Quote:

---

Originally Posted by macropod

Did you change:
Background:=True
in your code to:
Background:=False

---

I tried it with and without. This is my latest code. Sorry just an amateur macro user.

-------------

ActivePrinter = "EPSON L120 Series (Copy 1)"


Application.DisplayAlerts = wdAlertsNone




Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0


Application.PrintOut Background:=False


Application.DisplayAlerts = wdAlertsAll

You still have:
Background:=True
in your code and you don't need the separate:
Application.PrintOut Background:=False

Quote:

---

Originally Posted by macropod

You still have:
Background:=True
in your code and you don't need the separate:
Application.PrintOut Background:=False

---

oh yeah...thanks! I did not see that. will change it to:

ActivePrinter = "EPSON L120 Series (Copy 1)"

Application.DisplayAlerts = wdAlertsNone

Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
wdPrintAllPages, Collate:=True, Background:=False, PrintToFile:=False, _
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0

Application.PrintOut Background:=True

Application.DisplayAlerts = wdAlertsAll

Now you've changed:
Application.PrintOut Background:=False
to:
Application.PrintOut Background:=True
instead of deleting that line. As I said, you don't need it. Changing it the way you have instead of deleting it simply reintroduces the problem.

Quote:

---

Originally Posted by macropod

Now you've changed:
Application.PrintOut Background:=False
to:
Application.PrintOut Background:=True
instead of deleting that line. As I said, you don't need it. Changing it the way you have instead of deleting it simply reintroduces the problem.

---

Oh ok. Thank you for the help. So I'll just take it out. Let me try this then:

ActivePrinter = "EPSON L120 Series (Copy 1)"

Application.DisplayAlerts = wdAlertsNone

Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
wdPrintAllPages, Collate:=True, Background:=False, PrintToFile:=False, _
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0

Application.DisplayAlerts = wdAlertsAll

Quote:

---

Originally Posted by macropod

Now you've changed:
Application.PrintOut Background:=False
to:
Application.PrintOut Background:=True
instead of deleting that line. As I said, you don't need it. Changing it the way you have instead of deleting it simply reintroduces the problem.

---

thank you again for your help. We got it to work. Sending good vibes to you half a world away! :)))