S
Sammie
Is there a way to create a customized button on my toolbar to print my
report to Adobe Acrobat, and then automatically change the printer back
to my default printer? I am not very familiar with macros in Access,
but I use Visual Basic all the time. I have created a macro in Word to
do what I want, and assigned it to a button there. Can I make a similar
macro work on my Access report, or is there another way?
Here is my VB code for the Word button:
Thanks
Sammie
Sub Acrobat()
'
' Acrobat Macro
' Macro recorded 2/23/2005 by Sammie
'
ActivePrinter = "Adobe PDF"
Application.PrintOut filename:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="",
PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True,
PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0,
PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
ActivePrinter = "hp LaserJet 1300 PCL 6"
End Sub
report to Adobe Acrobat, and then automatically change the printer back
to my default printer? I am not very familiar with macros in Access,
but I use Visual Basic all the time. I have created a macro in Word to
do what I want, and assigned it to a button there. Can I make a similar
macro work on my Access report, or is there another way?
Here is my VB code for the Word button:
Thanks
Sammie
Sub Acrobat()
'
' Acrobat Macro
' Macro recorded 2/23/2005 by Sammie
'
ActivePrinter = "Adobe PDF"
Application.PrintOut filename:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="",
PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True,
PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0,
PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
ActivePrinter = "hp LaserJet 1300 PCL 6"
End Sub