Excell spredsheet - resolution

[yb]

my programe prints out xls spreadsheet with default resolution 600x600. I'm
using excell object.I would want my programe to oberride the default resolution
to 200x200 while saving and printing out.

Could anyone help me with this.

Thanks
YB

[Grinder]

"yb" <yb@vbforum.com> wrote in message news:3cb5b088$1@10.1.10.29...
>
> my programe prints out xls spreadsheet with default resolution 600x600.
I'm
> using excell object.I would want my programe to oberride the default
resolution
> to 200x200 while saving and printing out.
>
> Could anyone help me with this.

PrintQuality Method Example

This example sets print quality on a printer with nonsquare pixels. The
array specifies both horizontal and vertical print quality. This example may
cause an error, depending on the printer driver you're using.

Worksheets("Sheet1").PageSetup.PrintQuality = Array(240, 140)
This example displays the current setting for horizontal print quality.

MsgBox "Horizontal Print Quality is " & _
Worksheets("Sheet1").PageSetup.PrintQuality(1)

[YB]

Thanks, But does not work.

I'm using the same as

.PageSetup.PrintQuality = Array(200, 200)
it gives me an error and writes with default 600dpi.

Is there any other way to accomplish the same.

Thanks,
YB


"Grinder" <grinder@no.spam.maam.com> wrote:
>
>"yb" <yb@vbforum.com> wrote in message news:3cb5b088$1@10.1.10.29...
>>
>> my programe prints out xls spreadsheet with default resolution 600x600.
>I'm
>> using excell object.I would want my programe to oberride the default
>resolution
>> to 200x200 while saving and printing out.
>>
>> Could anyone help me with this.
>
>PrintQuality Method Example
>
>This example sets print quality on a printer with nonsquare pixels. The
>array specifies both horizontal and vertical print quality. This example
may
>cause an error, depending on the printer driver you're using.
>
>Worksheets("Sheet1").PageSetup.PrintQuality = Array(240, 140)
>This example displays the current setting for horizontal print quality.
>
>MsgBox "Horizontal Print Quality is " & _
> Worksheets("Sheet1").PageSetup.PrintQuality(1)
>
>
>

[Grinder]

> I'm using the same as
>
> PageSetup.PrintQuality = Array(200, 200)
> it gives me an error and writes with default 600dpi.

What did the error say?


> Is there any other way to accomplish the same.

A good indicator would be if you can set any value for PrintQuality without
an error. Try something "known" like, 600 x 600. Better yet, don't worry
about knowing it, just crank the current values back into it...

PageSetup.PrintQuality = Array(PageSetup.PrintQuality(1),
PageSetup.PrintQuality(2))

If it takes some legal values, then the driver supports this capability
(can't remember seeing one that didn't,) and 200 x 200 is just not a legal
combo.

You can try breaking it down into:

PageSetup.PrintQuality(1) = 200
PageSetup.PrintQuality(2) = 200

This might tell you if one of the resolutions is good, and the other dodgy.