Unable to set the PrintQuality using VBA

[Kattster]

I am using the following code on my home machine and it works fine but when I use a different printer from work it fails any ideas on another print setting I can use so that it will work regardless of what dpi the printer is capable of.
Home printer 360dpi
Work printer 600 dpi

With ActiveSheet.PageSetup<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
.LeftHeader = ""<o></o>
.CenterHeader = ""<o></o>
.RightHeader = ""<o></o>
.LeftFooter = ""<o></o>
.CenterFooter = ""<o></o>
.RightFooter = ""<o></o>
.LeftMargin = Application.InchesToPoints(0.71)<o></o>
.RightMargin = Application.InchesToPoints(0.71)<o></o>
.TopMargin = Application.InchesToPoints(0.75)<o></o>
.BottomMargin = Application.InchesToPoints(0.75)<o></o>
.HeaderMargin = Application.InchesToPoints(0.31)<o></o>
.FooterMargin = Application.InchesToPoints(0.31)<o></o>
.PrintHeadings = False<o></o>
.PrintGridlines = False<o></o>
.PrintComments = xlPrintNoComments<o></o>
.PrintQuality = -2<o></o>
.CenterHorizontally = False<o></o>
.CenterVertically = False<o></o>
.Orientation = xlLandscape<o></o>
.Draft = False<o></o>
.PaperSize = xlPaperA4<o></o>
.FirstPageNumber = xlAutomatic<o></o>
.Order = xlDownThenOver<o></o>
.BlackAndWhite = False<o></o>
.Zoom = False<o></o>
.FitToPagesWide = 1<o></o>
.FitToPagesTall = 1<o></o>
End With<o></o>

 

[tweedle]

Not sure what you mean by 'fails'.
Can try

.PrintQuality = Array(600,600)

or

.PrintQuality = 600

 

[Kattster]

If I use
.PrintQuality = 600

on my home machine using a Mac and different printer

I Get "Run-time error'1004'

"Unable to set the PrintQuality property of the PageSetup class"

However if i use
.PrintQuality = 360

on my home machine it works but then I get an error on the work printer which
seems to only recognise

.PrintQuality = 600

Hope this makes sense

Katt

 

[crabman2]

Yeah, I have the same problem here. No solution yet.

If I use
.PrintQuality = 600

on my home machine using a Mac and different printer

I Get "Run-time error'1004'

"Unable to set the PrintQuality property of the PageSetup class"

However if i use
.PrintQuality = 360

on my home machine it works but then I get an error on the work printer which
seems to only recognise

.PrintQuality = 600

Hope this makes sense

Katt

 

[tweedle]

I'm pretty Mac-ignorant and there is gross-little in search results; but maybe:

If Left(Application.OperatingSystem, 3) = "Win" Then
    PrintSetup.PrintQuality = 600
Else
    PrintSetup.PrintQuality = 360
End If

[untested]

 

[spicetrader]

i got it to work when i commented out the ".PrintQuality = 600" line.

microsoft has a completely unhelpful "support" page:You cannot use page setup properties in Excel if no printers were installed which says you must have at least one printer driver set up on your computer. I have several printer drivers on my computer. I get the same error Katt gets.

 

[katcar]

i got it to work when i commented out the ".PrintQuality = 600" line.

microsoft has a completely unhelpful "support" page:You cannot use page setup properties in Excel if no printers were installed which says you must have at least one printer driver set up on your computer. I have several printer drivers on my computer. I get the same error Katt gets.

I had same problem using same computer. Worked fine at home when printer available, failed when traveling and printer was not available. Commented out the .PrintQuality line and macro worked fine.