May’s Course of the Month is now available! Experts Exchange’s Premium Members and Team Accounts have access to a complimentary course each month as part of their membership—an extra way to increase training and boost professional development.
Public Sub PrintExternalWordDocs(strDocPath As String) Dim objWord As Object Set objWord = CreateObject("Word.Application") Application.Printer.Duplex = acPRDPHorizontal Dim objPrinter As Printer Set objPrinter = Application.Printer objPrinter.Duplex = acPRDPHorizontal objPrinter.Copies = gintCopies With objWord .Visible = True .Activate '.WindowState = Maximize .Documents.Open (strDocPath) End With 'Release object Set objWord = Nothing End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Fields don't match on a query||9||40|
|Access creating new db - relationships||8||49|
|ODBC failure when running MSACCESS query a second time.||5||49|
|Speed up Select Top n... Query||9||29|
Join the community of 500,000 technology professionals and ask your questions.