print quality

[birdman]

Is there code to set the print quality in the page setup to its maximum number?

 

[riaz]

    With ActiveSheet.PageSetup
        .PrintQuality = 600
    End With

however, as max print quality is printer dependent, you will have to test with trial and error to see what suits you

 

[erik.van.geit]

Hi,

I would keep things simple, like this

Option Explicit
 
Sub SetHighestPrintQuality()
'Erik Van Geit
'080807
 
'simple brute force :-)
'any other code will be very complicated
 
Dim i As Long
 
On Error Resume Next
    With ActiveSheet.PageSetup
        For i = 1 To 5
        .PrintQuality = 75 * 2 ^ i
        Next i
    End With
End Sub

kind regards,
Erik

 

[birdman]

The code works. The reason I ask is because someone else wrote this code on their computer and their computer had the option for 1200. My computer only has the option for 600. So when I ran there code I got an error.

I am wondering why you have 75*2....why not just 150? Will I have to add additional i values to get up to 1200? like i = 8?

 

[erik.van.geit]

if you want, you can let go i to 99999

currently the code tries to get from 75 * 2^1=150 till 75 * 2^5 = 75*32 = 2400 dpi
looks enough to me
could have started with i = 2 or 3, doesn't matter

does it?

byes,
Erik

 

[birdman]

Sorry Erik when I was reading the code really fast I thought it was 75*2*i not 75*2^i. My mistake. Makes sense now. Thanks alot!!