Range of several idividual columns

[wayneao]

I have this following code that is causing problems:

Dim intResults As Integer
 Dim sPath As String
 sPath = Environ("USERPROFILE") & "\Documents\" & "\PublisherList\"
Sheet1.Range("A1", "D1", "F1", "J1").ExportAsFixedFormat xlTypePDF, sPath & _
  InputBox("Please provide a name for the PDF file.") & ".PDF"
Sheet1.PrintPreview

I wish the range to include just certain columns.
unfortunatilgy the range selections are not working.

need help

[Richard Buttrey]

Hi,

Try

Sheet1.Range("A1, D1, F1, J1") '.....whatever

[wayneao]

Tried that it selects all columns from A1 to L1

[Richard Buttrey]

Hi,

If you're looking to select cells, as your original post suggested then as I said

Sheet1.Range("A1, D1, F1, J1").Select

will do that, or if you want to select whole columns then

Sheet1.Range("A1, D1, F1, J1").EntireColumn.Select

If you're looking to create a new file then I'd be inclined to use

Sheet1.Copy

to create a new workbook from Sheet1 and then delete the columns you don't want.

[wayneao]

Im trying to select the columns to export to a pdf document for printing

When I place the select after the range I get a error

Dim intResults As Integer
 Dim sPath As String
 sPath = Environ("USERPROFILE") & "\Documents\" & "\PublisherList\"
Sheet1.Range("A1, D1, F1,  J1").Select.ExportAsFixedFormat xlTypePDF, sPath & _
  InputBox("Please provide a name for the PDF file.") & ".PDF"
Sheet1.PrintPreview

[Richard Buttrey]

I didn't say put the .Select in your sheet export line of code. I don't believe you can do it that way.

That's why I said you should use the Sheet1.Copy line, then delete the stuff you don't want then your

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF,...... code

finishing the code with

ActiveWorkbook.Close

to close the single sheet workbook you created from your main workbook.

[wayneao]

Used

Sheet1.copy ("A1, D1, F1, J1")

Error copy of object failed