print

[Byers]

I'm using a macro I found to have a window to select which sheets t
print. problem is that it always prints the last sheet even if it i
not selected. I can't figure out an easy way around it maybe one o
yall can. Here is the code.

Option Explicit

Sub SelectSheets()
Dim i As Integer
Dim TopPos As Integer
Dim SheetCount As Integer
Dim PrintDlg As DialogSheet
Dim CurrentSheet As Worksheet
Dim cb As CheckBox
Application.ScreenUpdating = False

ActiveWorkbook.Unprotect password:="Andrew"

'Add a temporary dialog sheet
Set CurrentSheet = ActiveSheet
Set PrintDlg = ActiveWorkbook.DialogSheets.Add

SheetCount = 0

' Add the checkboxes
TopPos = 40
For i = 1 To ActiveWorkbook.Worksheets.Count
Set CurrentSheet = ActiveWorkbook.Worksheets(i)
' Skip empty sheets and hidden sheets
If Application.CountA(CurrentSheet.Cells) <> 0 And _
CurrentSheet.Visible Then
SheetCount = SheetCount + 1
PrintDlg.CheckBoxes.Add 78, TopPos, 150, 16.5
PrintDlg.CheckBoxes(SheetCount).Text = _
CurrentSheet.Name
TopPos = TopPos + 13
End If
Next i

' Move the OK and Cancel buttons
PrintDlg.Buttons.Left = 240

' Set dialog height, width, and caption
With PrintDlg.DialogFrame
.Height = Application.Max _
(68, PrintDlg.DialogFrame.Top + TopPos - 34)
.Width = 230
.Caption = "Select sheets to print"
End With

' Change tab order of OK and Cancel buttons
' so the 1st option button will have the focus
PrintDlg.Buttons("Button 2").BringToFront
PrintDlg.Buttons("Button 3").BringToFront

' Display the dialog box
CurrentSheet.Activate
Application.ScreenUpdating = True
If SheetCount <> 0 Then
If PrintDlg.Show Then
For Each cb In PrintDlg.CheckBoxes
If cb.Value = xlOn Then
Worksheets(cb.Caption).Select Replace:=False
End If
Next cb
ActiveWindow.SelectedSheets.PrintOut copies:=1
ActiveSheet.Select
End If
Else
MsgBox "All worksheets are empty."
End If

' Delete temporary dialog sheet (without a warning)
Application.DisplayAlerts = False
PrintDlg.Delete

' Reactivate original sheet
Sheets("template").Select

ActiveWorkbook.Protect password:="Andrew"

End Su

 

[Ron de Bruin]

Hi Byers

Maybe you like this smal example workbook
I have copy it on my site for another poster this week<vbg>

Have you try it?
http://www.rondebruin.com/Printselectedsheets.zip

 

[Byers]

I took a look at what you have, and it's really not what I'm lookin
for, I like the dialouge and format of how mine is and the code is muc
less complex. I'm just looking for a way to give an error message i
none are selected, and to automatically deselect the active sheet afte
the first other one is selected, unless it's the same sheet. Or t
deselect all before starting to select the ones with checks. Althoug
I don't think it's possible to have no active sheet