Need Code for Printing Options

[Stev1parr]

I need assistance with a print code.

What I want to select columns and hide those columns. Then file print. When the print dialog box appears, I want to have the option to select From/To and number of copies. Then I need to option to preview or just print. If preview is chosen, I need the option to print or cancel before continuing to Columns("B:AZ").Select.

This is what I have so far with the exception of the print code is incorrect.

Columns("C:AY").Select
Range("C75").Activate
Selection.EntireColumn.Hidden = True
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Preview _
:=True, Collate:=True
Columns("B:AZ").Select
Range("B72").Activate
Selection.EntireColumn.Hidden = False
Range("B76").Select

 

[Loomah]

have a look at using
application.dialogs(xldialogprint).show

this displays the print dialog but i've never used this method so don't really know what clicking ok actually returns!

;-)

If a man says something and there are no women there to hear him, is he still wrong?
How do I get the best answers?​