Sub PrintSkipP1()
Dim sht As Worksheet

For Each sht In ActiveWindow.SelectedSheets
sht.PrintPreview From:=2, To:=4
Next sht

Set sht = Nothing
End Sub

WHY?

Hi,

As far as I'm aware the only switches for .printpreview are True/False and
the correct syntax is

sht.PrintPreview (True)

What are you attempting to do with the switch you are using?

Mike



"JMay" wrote:

> Sub PrintSkipP1()
> Dim sht As Worksheet
>
> For Each sht In ActiveWindow.SelectedSheets
> sht.PrintPreview From:=2, To:=4
> Next sht
>
> Set sht = Nothing
> End Sub
>
> WHY?

Thanks Mike,
Actually, I'm trying to create a Macro that will Skip the printing of my
Page 1 of my Active 4 page printout (print only 2,3 and 4). For testing I
always use the Preview option versus PrintOut (to save paper). Also - I
actually want the To:= to be To:=[Pages] representing print to the last
page (whatever number that is)...
Thanks,
Jim


"Mike H" wrote:

> Hi,
>
> As far as I'm aware the only switches for .printpreview are True/False and
> the correct syntax is
>
> sht.PrintPreview (True)
>
> What are you attempting to do with the switch you are using?
>
> Mike
>
>
>
> "JMay" wrote:
>
> > Sub PrintSkipP1()
> > Dim sht As Worksheet
> >
> > For Each sht In ActiveWindow.SelectedSheets
> > sht.PrintPreview From:=2, To:=4
> > Next sht
> >
> > Set sht = Nothing
> > End Sub
> >
> > WHY?

Hi,

I look to be corrected but I'm fairly sure you can only preview all pages.
printout is different you can do this

For Each sht In ActiveWindow.SelectedSheets
sht.Printout From:=2, To:=4
Next sht

Mike

"JMay" wrote:

> Thanks Mike,
> Actually, I'm trying to create a Macro that will Skip the printing of my
> Page 1 of my Active 4 page printout (print only 2,3 and 4). For testing I
> always use the Preview option versus PrintOut (to save paper). Also - I
> actually want the To:= to be To:=[Pages] representing print to the last
> page (whatever number that is)...
> Thanks,
> Jim
>
>
> "Mike H" wrote:
>
> > Hi,
> >
> > As far as I'm aware the only switches for .printpreview are True/False and
> > the correct syntax is
> >
> > sht.PrintPreview (True)
> >
> > What are you attempting to do with the switch you are using?
> >
> > Mike
> >
> >
> >
> > "JMay" wrote:
> >
> > > Sub PrintSkipP1()
> > > Dim sht As Worksheet
> > >
> > > For Each sht In ActiveWindow.SelectedSheets
> > > sht.PrintPreview From:=2, To:=4
> > > Next sht
> > >
> > > Set sht = Nothing
> > > End Sub
> > >
> > > WHY?

..printout has a preview parm:

sht.PrintOut preview:=True, From:=2, To:=999

(make 999 as big as you want to ensure that you got all the pages.)

JMay wrote:
>
> Thanks Mike,
> Actually, I'm trying to create a Macro that will Skip the printing of my
> Page 1 of my Active 4 page printout (print only 2,3 and 4). For testing I
> always use the Preview option versus PrintOut (to save paper). Also - I
> actually want the To:= to be To:=[Pages] representing print to the last
> page (whatever number that is)...
> Thanks,
> Jim
>
> "Mike H" wrote:
>
> > Hi,
> >
> > As far as I'm aware the only switches for .printpreview are True/False and
> > the correct syntax is
> >
> > sht.PrintPreview (True)
> >
> > What are you attempting to do with the switch you are using?
> >
> > Mike
> >
> >
> >
> > "JMay" wrote:
> >
> > > Sub PrintSkipP1()
> > > Dim sht As Worksheet
> > >
> > > For Each sht In ActiveWindow.SelectedSheets
> > > sht.PrintPreview From:=2, To:=4
> > > Next sht
> > >
> > > Set sht = Nothing
> > > End Sub
> > >
> > > WHY?

--

Dave Peterson

Final Code (seems a shame that we have to refer to Excel4Macro.... it get it
to work -- Is there a more current substitute?)
Tks Mike

Sub PrintSkipP1()
Dim sht As Worksheet
TotPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
For Each sht In ActiveWindow.SelectedSheets
sht.PrintOut From:=2, To:=TotPages
Next sht
Set sht = Nothing
End Sub

"Mike H" wrote:

> Hi,
>
> I look to be corrected but I'm fairly sure you can only preview all pages.
> printout is different you can do this
>
> For Each sht In ActiveWindow.SelectedSheets
> sht.Printout From:=2, To:=4
> Next sht
>
> Mike
>
> "JMay" wrote:
>
> > Thanks Mike,
> > Actually, I'm trying to create a Macro that will Skip the printing of my
> > Page 1 of my Active 4 page printout (print only 2,3 and 4). For testing I
> > always use the Preview option versus PrintOut (to save paper). Also - I
> > actually want the To:= to be To:=[Pages] representing print to the last
> > page (whatever number that is)...
> > Thanks,
> > Jim
> >
> >
> > "Mike H" wrote:
> >
> > > Hi,
> > >
> > > As far as I'm aware the only switches for .printpreview are True/False and
> > > the correct syntax is
> > >
> > > sht.PrintPreview (True)
> > >
> > > What are you attempting to do with the switch you are using?
> > >
> > > Mike
> > >
> > >
> > >
> > > "JMay" wrote:
> > >
> > > > Sub PrintSkipP1()
> > > > Dim sht As Worksheet
> > > >
> > > > For Each sht In ActiveWindow.SelectedSheets
> > > > sht.PrintPreview From:=2, To:=4
> > > > Next sht
> > > >
> > > > Set sht = Nothing
> > > > End Sub
> > > >
> > > > WHY?

Hi Dave

>> (make 999 as big as you want to ensure that you got all the pages.)

I believe this part To:=999 is not needed if I remember correct ?

The OP can use
sht.PrintOut preview:=True, From:=2


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Dave Peterson" <(E-Mail Removed)> wrote in message news:(E-Mail Removed)...
> .printout has a preview parm:
>
> sht.PrintOut preview:=True, From:=2, To:=999
>
> (make 999 as big as you want to ensure that you got all the pages.)
>
> JMay wrote:
>>
>> Thanks Mike,
>> Actually, I'm trying to create a Macro that will Skip the printing of my
>> Page 1 of my Active 4 page printout (print only 2,3 and 4). For testing I
>> always use the Preview option versus PrintOut (to save paper). Also - I
>> actually want the To:= to be To:=[Pages] representing print to the last
>> page (whatever number that is)...
>> Thanks,
>> Jim
>>
>> "Mike H" wrote:
>>
>> > Hi,
>> >
>> > As far as I'm aware the only switches for .printpreview are True/False and
>> > the correct syntax is
>> >
>> > sht.PrintPreview (True)
>> >
>> > What are you attempting to do with the switch you are using?
>> >
>> > Mike
>> >
>> >
>> >
>> > "JMay" wrote:
>> >
>> > > Sub PrintSkipP1()
>> > > Dim sht As Worksheet
>> > >
>> > > For Each sht In ActiveWindow.SelectedSheets
>> > > sht.PrintPreview From:=2, To:=4
>> > > Next sht
>> > >
>> > > Set sht = Nothing
>> > > End Sub
>> > >
>> > > WHY?
>
> --
>
> Dave Peterson

Thanks Both Dave and Ron --
So my lastest code (see under last comm to Mike) with Q is solved
by "forgetting" the need for the To:= parameter?
Coooooooool !!!!!!!!!


"Ron de Bruin" wrote:

> Hi Dave
>
> >> (make 999 as big as you want to ensure that you got all the pages.)
>
> I believe this part To:=999 is not needed if I remember correct ?
>
> The OP can use
> sht.PrintOut preview:=True, From:=2
>
>
> --
>
> Regards Ron de Bruin
> http://www.rondebruin.nl/tips.htm
>
>
> "Dave Peterson" <(E-Mail Removed)> wrote in message news:(E-Mail Removed)...
> > .printout has a preview parm:
> >
> > sht.PrintOut preview:=True, From:=2, To:=999
> >
> > (make 999 as big as you want to ensure that you got all the pages.)
> >
> > JMay wrote:
> >>
> >> Thanks Mike,
> >> Actually, I'm trying to create a Macro that will Skip the printing of my
> >> Page 1 of my Active 4 page printout (print only 2,3 and 4). For testing I
> >> always use the Preview option versus PrintOut (to save paper). Also - I
> >> actually want the To:= to be To:=[Pages] representing print to the last
> >> page (whatever number that is)...
> >> Thanks,
> >> Jim
> >>
> >> "Mike H" wrote:
> >>
> >> > Hi,
> >> >
> >> > As far as I'm aware the only switches for .printpreview are True/False and
> >> > the correct syntax is
> >> >
> >> > sht.PrintPreview (True)
> >> >
> >> > What are you attempting to do with the switch you are using?
> >> >
> >> > Mike
> >> >
> >> >
> >> >
> >> > "JMay" wrote:
> >> >
> >> > > Sub PrintSkipP1()
> >> > > Dim sht As Worksheet
> >> > >
> >> > > For Each sht In ActiveWindow.SelectedSheets
> >> > > sht.PrintPreview From:=2, To:=4
> >> > > Next sht
> >> > >
> >> > > Set sht = Nothing
> >> > > End Sub
> >> > >
> >> > > WHY?
> >
> > --
> >
> > Dave Peterson
>

>Is there a more current substitute

Not that I know of
I also use it here
http://www.rondebruin.nl/print.htm#not

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"JMay" <(E-Mail Removed)> wrote in message newsE2DBC71-B4F5-4EB1-8AA0-(E-Mail Removed)...
> Final Code (seems a shame that we have to refer to Excel4Macro.... it get it
> to work -- Is there a more current substitute?)
> Tks Mike
>
> Sub PrintSkipP1()
> Dim sht As Worksheet
> TotPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
> For Each sht In ActiveWindow.SelectedSheets
> sht.PrintOut From:=2, To:=TotPages
> Next sht
> Set sht = Nothing
> End Sub
>
> "Mike H" wrote:
>
>> Hi,
>>
>> I look to be corrected but I'm fairly sure you can only preview all pages.
>> printout is different you can do this
>>
>> For Each sht In ActiveWindow.SelectedSheets
>> sht.Printout From:=2, To:=4
>> Next sht
>>
>> Mike
>>
>> "JMay" wrote:
>>
>> > Thanks Mike,
>> > Actually, I'm trying to create a Macro that will Skip the printing of my
>> > Page 1 of my Active 4 page printout (print only 2,3 and 4). For testing I
>> > always use the Preview option versus PrintOut (to save paper). Also - I
>> > actually want the To:= to be To:=[Pages] representing print to the last
>> > page (whatever number that is)...
>> > Thanks,
>> > Jim
>> >
>> >
>> > "Mike H" wrote:
>> >
>> > > Hi,
>> > >
>> > > As far as I'm aware the only switches for .printpreview are True/False and
>> > > the correct syntax is
>> > >
>> > > sht.PrintPreview (True)
>> > >
>> > > What are you attempting to do with the switch you are using?
>> > >
>> > > Mike
>> > >
>> > >
>> > >
>> > > "JMay" wrote:
>> > >
>> > > > Sub PrintSkipP1()
>> > > > Dim sht As Worksheet
>> > > >
>> > > > For Each sht In ActiveWindow.SelectedSheets
>> > > > sht.PrintPreview From:=2, To:=4
>> > > > Next sht
>> > > >
>> > > > Set sht = Nothing
>> > > > End Sub
>> > > >
>> > > > WHY?

And if you use .printout and add preview:=true, you'll be able to printpreview,
too.

JMay wrote:
>
> Thanks Both Dave and Ron --
> So my lastest code (see under last comm to Mike) with Q is solved
> by "forgetting" the need for the To:= parameter?
> Coooooooool !!!!!!!!!
>
> "Ron de Bruin" wrote:
>
> > Hi Dave
> >
> > >> (make 999 as big as you want to ensure that you got all the pages.)
> >
> > I believe this part To:=999 is not needed if I remember correct ?
> >
> > The OP can use
> > sht.PrintOut preview:=True, From:=2
> >
> >
> > --
> >
> > Regards Ron de Bruin
> > http://www.rondebruin.nl/tips.htm
> >
> >
> > "Dave Peterson" <(E-Mail Removed)> wrote in message news:(E-Mail Removed)...
> > > .printout has a preview parm:
> > >
> > > sht.PrintOut preview:=True, From:=2, To:=999
> > >
> > > (make 999 as big as you want to ensure that you got all the pages.)
> > >
> > > JMay wrote:
> > >>
> > >> Thanks Mike,
> > >> Actually, I'm trying to create a Macro that will Skip the printing of my
> > >> Page 1 of my Active 4 page printout (print only 2,3 and 4). For testing I
> > >> always use the Preview option versus PrintOut (to save paper). Also - I
> > >> actually want the To:= to be To:=[Pages] representing print to the last
> > >> page (whatever number that is)...
> > >> Thanks,
> > >> Jim
> > >>
> > >> "Mike H" wrote:
> > >>
> > >> > Hi,
> > >> >
> > >> > As far as I'm aware the only switches for .printpreview are True/False and
> > >> > the correct syntax is
> > >> >
> > >> > sht.PrintPreview (True)
> > >> >
> > >> > What are you attempting to do with the switch you are using?
> > >> >
> > >> > Mike
> > >> >
> > >> >
> > >> >
> > >> > "JMay" wrote:
> > >> >
> > >> > > Sub PrintSkipP1()
> > >> > > Dim sht As Worksheet
> > >> > >
> > >> > > For Each sht In ActiveWindow.SelectedSheets
> > >> > > sht.PrintPreview From:=2, To:=4
> > >> > > Next sht
> > >> > >
> > >> > > Set sht = Nothing
> > >> > > End Sub
> > >> > >
> > >> > > WHY?
> > >
> > > --
> > >
> > > Dave Peterson
> >

--

Dave Peterson