Printing macro

[pincivma]

Hi there
I'm not sure if this is possible or not to do in Excel. Is it possible for me to set up my printing options first and then run a macro to print out the data that I have chosen before hand. I could have chosen only a selection or the whole worksheet etc. I know that I can record a macro by setting up all of the possible printing options but I will have many macros to run, since I have many printing options available to me. What I want is to choose all of my printing options before I run my macro and the macro will somehow know which printing options I selected and print out the data.

Thanks

 

[KolGuyXcel]

First create several subroutines like

Sub print_options_01 ()

With ActiveSheet.PageSetup
.CenterHorizontally = True
.CenterVertically = False
...
...
...
End With
End Sub

Then in the main sub the relevant print_option sub can be called upon using an IF-THEN-ELSE statement.

Hope this helps!

 

[MARK858]

Not just....

Sub Macro5()
    With ActiveSheet
        .PageSetup.PrintArea = Selection.Address
        .PrintOut
    End With
End Sub

 

[pincivma]

Thanks to both of you. I will try your macros.

 

[pincivma]

Hi Mark858

I tried your macro below and I got a real weird looking computer screen. The Excel spread sheet turned gray with the selection that I picked highlighted. I tried to undo the gray area but without success. I then clicked on print area and clear print area and all of my formatting was gone. Do you know why your code did that??

Thanks

Sub Macro5()
With ActiveSheet
.PageSetup.PrintArea = Selection.Address
.PrintOut
End With
End Sub

 

[MARK858]

No reason, that I can think of. There is nothing in the code that alters formatting.

All the code does is set the print area and print... exactly the same if you done it manually.

I have just ran the code 7 times on a sheet with both normal formatting and conditional formatting and the only things I got was the normal shading you get get from doing the manual selection and the dotted line showing the print area.

None of the formatting was affected.

Are any of your cells locked and the sheet protected?

 

[pincivma]

Yes some of my cells are Locked and the worksheet protected. Could that be causing the problem??

 

[MARK858]

Possibly... but just stretching ideas at the moment.
Copy your workbook, then on the copy manually unprotect the sheet and test. Leave the cells as they are.

 

[pincivma]

OK, I will that a try later on today. Thanks.