Printing Problems

[ninjak]

Is there a way to make a macro that i can choose what page to print ? on my sheet named compare i devided it up into 10 sheets but i cannot figure out how to make it print the page i want it too print say i wanted it too print page 5 and only 5 can somebody help me make something that will work please


Thanks AL

 

[tactps]

If you want them to print a single page, and they know what page number to print, try:

Sub macro()
Input1 = InputBox("Which page would you like to print?", "Print")
ActiveWindow.SelectedSheets.PrintOut From:=Input1, To:=Input1, Copies:=1, Collate _
:=True
End Sub

 

[Yogi Anand]

Hi AL:

To print a specific page or a range of pages, you do not necessarily need a macro, you can do FILE|Print ... and then in the Print_range portion of the dialog box choose the option Page(s) and then key-in From and To page numbers.

 

[Ian Mac]

Something like:

Sub PrintPages()
Dim f, t As Integer

f = InputBox("Select start page 1 to 10", "Print From")
t = InputBox("Select end page " & f & " to 10", "Print To")

If MsgBox("Do you wish to print pages " & f & " to " & t, vbYesNo, "Confirm print") = vbYes Then
ThisWorkbook.PrintOut f, t
Else
End If

End Sub

 

[ninjak]

How can i make it always choose compare worksheet and then ask me what page ?


Thanks AL

 

[tactps]

Press Alt-F11, which will bring up VBA.

From the insert menu, choose "module"

Copy and paste the detail in.

To use, press Alt-F8 and run the macro (or you can attach it to a button)

 

[ninjak]

alright i figure out how to add it is there a way to make it always choose compare sheet and when i print stuff now it shows little dotted lines how to i get those to go way after i print ?

Thanks AL

 

[tactps]

Add the line:
Sheets("Compare").Select
before the input box.

Dotted lines sound like page breaks

If you have lines showing, you are either looking at it in page preview mode (click on view and choose normal to fix), or your options shown page breaks (tools, options, view tab - unchekc "page breaks")

 

[ninjak]

Thanks Everybody It all works great

AL