print quality

R

riaz

Well-known Member

Joined

Jun 27, 2006

Messages

779

• Aug 7, 2008

• #2

Code:

    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

 

Upvote 0

erik.van.geit

MrExcel MVP

Joined

Feb 1, 2003

Messages

17,832

• Aug 7, 2008

• #3

Hi,

I would keep things simple, like this

Code:

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

 

Upvote 0

B

birdman

Board Regular

Joined

Oct 11, 2005

Messages

187

• Aug 7, 2008

• #4

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?

 

Upvote 0

erik.van.geit

MrExcel MVP

Joined

Feb 1, 2003

Messages

17,832

• Aug 7, 2008

• #5

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

 

Upvote 0

B

birdman

Board Regular

Joined

Oct 11, 2005

Messages

187

• Aug 7, 2008

• #6

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!!

 

Upvote 0