Hi guys,

Anyone know how to list print quality options for the defalut printer?
(Using VBA)

I thought it would be easy, but I've found no clues anywhere!

The purpose of this is to set the print quality of each page to the
same i.e. 600 dpi for printing to .pdfs - that's no problem, but I'd
like the user to be able to select which out of the default printer's
options to use.

An sutiable alternative would be setting to the default printer's
maximum resolution.

Cheers,
JF.

PageSetUp has a PrintQuality method.
--
Jim Cone
Portland, Oregon USA



"Joshua Fandango"

wrote in message
Hi guys,
Anyone know how to list print quality options for the defalut printer?
(Using VBA)
I thought it would be easy, but I've found no clues anywhere!
The purpose of this is to set the print quality of each page to the
same i.e. 600 dpi for printing to .pdfs - that's no problem, but I'd
like the user to be able to select which out of the default printer's
options to use.
An sutiable alternative would be setting to the default printer's
maximum resolution.
Cheers,
JF.

Hi Jim,

I found that; any idea how to use it to do what I'm after?

Cheers,
JF

On 23 Jan, 18:13, "Jim Cone" wrote:
PageSetUp has a PrintQuality method.
--
Jim Cone
Portland, Oregon *USA

"Joshua Fandango"

wrote in message
Hi guys,
Anyone know how to list print quality options for the defalut printer?
(Using VBA)
I thought it would be easy, but I've found no clues anywhere!
The purpose of this is to set the print quality of each page to the
same i.e. 600 dpi for printing to .pdfs - that's no problem, but I'd
like the user to be able to select which out of the default printer's
options to use.
An sutiable alternative would be setting to the default printer's
maximum resolution.
Cheers,
JF.

Well ...
'--
Sub HowHighIsUp()
'Jim Cone - Portland, Oregon USA - Jan 2009
'Determines maximum horizontal PrintQuality setting
Dim M As Double
Dim N As Double
Dim lngMax As Double
M = ActiveSheet.PageSetup.PrintQuality(1)
lngMax = M
With ActiveSheet.PageSetup
'Adjust max loop setting for your environment
For N = (M + 100) To (M + 1000) Step 100
On Error Resume Next
.PrintQuality(1) = N
If Err.Number = 0 Then
If lngMax < N Then lngMax = N
Else
Err.Clear
End If
Next 'N
End With
ActiveSheet.PageSetup.PrintQuality(1) = M
MsgBox "Print quality setting is " & M & " " _
& vbCr & "Maximum setting is " & lngMax, _
vbInformation, "Make Sure It Looks Nice"
End Sub
--
Jim Cone
Portland, Oregon USA




"Joshua Fandango"

wrote in message
Hi Jim,
I found that; any idea how to use it to do what I'm after?
Cheers,
JF



On 23 Jan, 18:13, "Jim Cone"
wrote:
PageSetUp has a PrintQuality method.
--
Jim Cone
Portland, Oregon USA



"Joshua Fandango"

wrote in message
Hi guys,
Anyone know how to list print quality options for the defalut printer?
(Using VBA)
I thought it would be easy, but I've found no clues anywhere!
The purpose of this is to set the print quality of each page to the
same i.e. 600 dpi for printing to .pdfs - that's no problem, but I'd
like the user to be able to select which out of the default printer's
options to use.
An sutiable alternative would be setting to the default printer's
maximum resolution.
Cheers,
JF.

Fantastic!

Thanks everso much Jim, now I see why I couldn't get anywhere!
I was trying "ActiveSheet.PageSetup.PrintQuality" - excluding the
"(1)". There was a clue to use it in the help file, but I managed to
overlook it :(

Every day's a school day...

On 26 Jan, 17:41, "Jim Cone" wrote:
Well ...
'--
Sub HowHighIsUp()
'Jim Cone - Portland, Oregon USA - Jan 2009
'Determines maximum horizontal PrintQuality setting
*Dim M As Double
*Dim N As Double
*Dim lngMax As Double
*M = ActiveSheet.PageSetup.PrintQuality(1)
*lngMax = M
*With ActiveSheet.PageSetup
'Adjust max loop setting for your environment
*For N = (M + 100) To (M + 1000) Step 100
* * *On Error Resume Next
* * .PrintQuality(1) = N
* * *If Err.Number = 0 Then
* * * * If lngMax < N Then lngMax = N
* * *Else
* * * * Err.Clear
* * *End If
*Next 'N
*End With
*ActiveSheet.PageSetup.PrintQuality(1) = M
*MsgBox "Print quality setting is *" & M & " * " _
* * * * & vbCr & "Maximum setting is *" & lngMax, _
* * * * vbInformation, "Make Sure It Looks Nice"
End Sub
--
Jim Cone
Portland, Oregon *USA

"Joshua Fandango"

wrote in message
Hi Jim,
I found that; any idea how to use it to do what I'm after?
Cheers,
JF

On 23 Jan, 18:13, "Jim Cone"



wrote:
PageSetUp has a PrintQuality method.
--
Jim Cone
Portland, Oregon USA
"Joshua Fandango"

wrote in message
Hi guys,
Anyone know how to list print quality options for the defalut printer?
(Using VBA)
I thought it would be easy, but I've found no clues anywhere!
The purpose of this is to set the print quality of each page to the
same i.e. 600 dpi for printing to .pdfs - that's no problem, but I'd
like the user to be able to select which out of the default printer's
options to use.
An sutiable alternative would be setting to the default printer's
maximum resolution.
Cheers,
JF.- Hide quoted text -

- Show quoted text -

You are welcome and thanks for the feedback.
'--
Jim Cone





"Joshua Fandango"

wrote in message
Fantastic!
Thanks ever so much Jim, now I see why I couldn't get anywhere!
I was trying "ActiveSheet.PageSetup.PrintQuality" - excluding the
"(1)". There was a clue to use it in the help file, but I managed to
overlook it :(
Every day's a school day...