| Home |
| Search |
| Today's Posts |
|
#10
Posted to microsoft.public.excel.programming
|
|||
|
|||
print option
thank you very much for your help
have a good weekend jez "Sheeloo" wrote: Here is the updated macro Insert a sheet named Sheet1 (or you can name it whatever and change Sheet1 below to that name). You can try to hide that sheet too. in Col A enter the sheet names you want the users to be able to print in Col B enter the total pagenumbers for the sheet in corresponding cell in Col A Max 20 sheets Sub printPages() Dim i, j As Integer Dim shName(20), nPages(20) As String Dim response, response2 As Variant msg = "Please select the sheet to print" & vbCrLf & vbCrLf j = Sheets.Count - 1 For i = 1 To j shName(i) = Sheets("Sheet1").Cells(i, 1).Value nPages(i) = Sheets("Sheet1").Cells(i, 2).Value msg = msg & i & " to print : " & shName(i) & vbCrLf 'MsgBox shname & " has " & nPages & " pages." Next response = InputBox(msg) If response = "" Then Exit Sub Else response = CInt(response) End If If response < (j + 1) Then msg = "Please type the number of pages to print from: " & _ shName(response) & vbCrLf & vbCrLf msg = msg & "Enter 0 to print all pages" & vbCrLf For i = 1 To nPages(response) msg = msg & "Enter " & i & " to print page number: " & i & vbCrLf Next response2 = InputBox(msg) If response2 = "" Then Exit Sub Else response2 = CInt(response2) End If Else MsgBox "Wrong choice. Pl. choose again." Exit Sub End If If response2 nPages(response) Then MsgBox "Wrong choice. Pl. choose again." Exit Sub End If If response2 = 0 Then ActiveSheet.PrintOut 1, nPages(response) Else ActiveSheet.PrintOut response2, response2 End If End Sub "jez" wrote: absolutely stunning, thanks for all the help honestly but i have one more question i have 5 different sheets in a workbook and they have different amount of pages eg, report sheet 3 pages, accounts sheet 2 pages and counting sheet 8 pages can i do it like select report option 1 and then print 1-3 (which takes you to report sheet) or counting option 2 and then print all pages (which takes you to counting sheet) when you get a chance please reply you are the hero so far jez jez |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| setting print ranges to print based on option | Excel Programming | |||
| Y or N option to print 1 of 2 schedule | Excel Discussion (Misc queries) | |||
| Print from Option Buttons | Excel Programming | |||
| 11 x 17 is not a print option for me | Excel Discussion (Misc queries) | |||
| print option | Setting up and Configuration of Excel | |||
Threaded Mode
