Print Macro Single sided

[Middlemarch]

Apologies if this is more an Office question than Access. I couldn't find an Office forum and being VBA may be applicable here.

Sub PrintCurrentPage()
    Application.PrintOut FileName:="", Range:=wdPrintCurrentPage, Item:= _
        wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
        wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
        PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
End Sub

Is there any way to add a single-sided instruction to this?

[June7]

Is this code in Access VBA? Does it actually work? Does not look valid to me. I don't see an Application.PrintOut method.

[Middlemarch]

It's MSWord VBA. Yes it works but an enhancement to print s/sided is sought.
Not Access but someone here may know as it's all part of Office.

[ArviLaanemets]

I couldn't find an Office forum and being VBA may be applicable here.

At bottom of forums main page, the last link is to Microsoft Office forum

[June7]

Apparently not with parameters of PrintOut method. Document.PrintOut method (Word) | Microsoft Learn

I have done this in Access VBA. Example:

'open report in preview mode because is only way to change bin and/or printer destinations without changing report saved setup
DoCmd.OpenReport "SampleLabels", IIf(Application.Printer.DeviceName Like "*Konica*", acViewPreview, acViewNormal)
If Application.Printer.DeviceName Like "*Konica*" Then
       Reports("SampleLabels").Printer.Duplex = acPRDPSimplex
       DoCmd.PrintOut
End If

Maybe the solution you need for Word is in this thread https://answers.microsoft.com/en-us/...d-27332b826a12

[Middlemarch]

Many thanks for the replies and help. Am investigating.