On Oct 12, 12:23*pm, GS wrote:
Michael wrote on 10/12/2011 :





ExportAsFixedFormat does not work with ActiveWindow.SelectedSheets
unless I am missing something, i tired

*ActiveWindow.SelectedSheets.ExportAsFixedFormat Type:=xlTypePDF,
Filename:=ExportFileName, Quality:= _
* * * * xlQualityStandard, IncludeDocProperties:=True,
IgnorePrintAreas:=False, _
* * * * OpenAfterPublish:=True

Is that what you were suggesting?

I have to think that problem is somehow related to the state the file
is in becuase it worked this morning with same file as last night that
was not working

Any other ideas

I think the approach I was thinking needs some further looking into
because I was using a PDF printer not XL2007 SaveAs PDF. Try the SaveAs
approach and specify the XPS or PDF option OR just execute that
menuitem from VBA against the grouped sheets.

--
Garry

Free usenet access athttp://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc- Hide quoted text -

- Show quoted text -

that is what I am doing save as xps or pdf. Works sometime and then
other times just make one page pdf

Michael formulated on Wednesday :
On Oct 12, 12:23*pm, GS wrote:
Michael wrote on 10/12/2011 :





ExportAsFixedFormat does not work with ActiveWindow.SelectedSheets
unless I am missing something, i tired
*ActiveWindow.SelectedSheets.ExportAsFixedFormat Type:=xlTypePDF,
Filename:=ExportFileName, Quality:= _
* * * * xlQualityStandard, IncludeDocProperties:=True,
IgnorePrintAreas:=False, _
* * * * OpenAfterPublish:=True

Is that what you were suggesting?

I have to think that problem is somehow related to the state the file
is in becuase it worked this morning with same file as last night that
was not working

Any other ideas

I think the approach I was thinking needs some further looking into
because I was using a PDF printer not XL2007 SaveAs PDF. Try the SaveAs
approach and specify the XPS or PDF option OR just execute that
menuitem from VBA against the grouped sheets.

--
Garry

Free usenet access athttp://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc- Hide quoted text -

- Show quoted text -

that is what I am doing save as xps or pdf. Works sometime and then
other times just make one page pdf

Have you checked this out?

http://www.microsoft.com/download/en...ang=en&id=9943

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc

I also grouped some sheets and ran this line of code...

CommandBars.ExecuteMso("FileSaveAsPdfOrXps")

to get the dialog open and set any other options I wanted. It published
all selected sheets.

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc