Hello,
I am trying to create a macro for duplex (double-sided) printing. I've tried following the instructions from this site:
http://pubs.logicalexpressions.com/Pub0009/LPMArticle.asp?ID=116
But it's still printing one-sided only. My code looks like this:
Sub printNorthBW()
Dim iDuplex As Long
iDuplex = GetDuplex
SetDuplex 2
Application.ActivePrinter = "\\NYHQPS03\NorthBW on Ne03:"
If Not ActiveSheet.Range("C7").Value < 1 Then
ActiveSheet.PrintOut Copies:=ActiveSheet.Range("C7").Value, Collate:=True
End If
SetDuplex iDuplex
End Sub
The activesheet.range is just a cell where people can key in how many copies they want to print.
Any ideas what I need to fix? Thanks.
I am trying to create a macro for duplex (double-sided) printing. I've tried following the instructions from this site:
http://pubs.logicalexpressions.com/Pub0009/LPMArticle.asp?ID=116
But it's still printing one-sided only. My code looks like this:
Sub printNorthBW()
Dim iDuplex As Long
iDuplex = GetDuplex
SetDuplex 2
Application.ActivePrinter = "\\NYHQPS03\NorthBW on Ne03:"
If Not ActiveSheet.Range("C7").Value < 1 Then
ActiveSheet.PrintOut Copies:=ActiveSheet.Range("C7").Value, Collate:=True
End If
SetDuplex iDuplex
End Sub
The activesheet.range is just a cell where people can key in how many copies they want to print.
Any ideas what I need to fix? Thanks.