> > > > > > hello all
> > > > > > i got a macro that print certain sheets by verifying
> > > > > > if a certain cell is filled
> > > > > > the macro print 1 to 5 sheets
> > > > > > my prob is that all shhets print ok except 1 of my sheets print
> > > > > > only the cell borders without the data
> > > > > > i've look the print area and its fine
> > > > > > secundo
> > > > > > when i use the menu file print command
> > > > > > the sheets print just fine
i've pasted a second code here that i have the same prob with sheet rapport
> > > > > > anyone got this problem before???????
> > > > > > thanks
> > > > > > jeff
2----------------------------------------
> Private Sub CommandButton2_Click()
> Sheets("rapport").Visible = True
>
> Sheets(Array("master", "rapport")).Select
> Application.Dialogs(xlDialogPrint).Show
> Sheets("rapport").Visible = False
>
>
> Sheets("Start").Select
> End Sub
1---------------------------------------
> > > > Private Sub CommandButton1_Click()
> > > >
> > > > Sheets("g1").Visible = True
> > > > Sheets("g2").Visible = True
> > > > Sheets("g3").Visible = True
> > > > Sheets("g4").Visible = True
> > > >
> > > >
> > > > Dim rng As Range, cell As Range
> > > > Dim varr As Variant
> > > > Dim i As Long
> > > > Dim bFirst As Boolean
> > > > varr = Array("master", "g1", "g2", "g3", "g4")
> > > >
> > > > i = -1
> > > > With Worksheets("master")
> > > > Set rng = Range("l10,l10,l11,l12,l13")
> > > > End With
> > > > bFirst = True
> > > > For Each cell In rng
> > > > i = i + 1
> > > > If Not IsEmpty(cell) Then
> > > > If IsNumeric(cell) Then
> > > > If cell.Value > 0 Then
> > > > If bFirst Then
> > > > Worksheets(varr(i)).Select True
> > > > Else
> > > > Worksheets(varr(i)).Select False
> > > > End If
> > > > bFirst = False
> > > > End If
> > > > End If
> > > > End If
> > > > Next
> > > > If Not bFirst Then
> > > > Application.Dialogs(xlDialogPrint).Show
> > > > End If
> > > >
> > > > Sheets("g1").Visible = False
> > > > Sheets("g2").Visible = False
> > > > Sheets("g3").Visible = False
> > > > Sheets("g4").Visible = False
> > > >
> > > > Sheets("Start").Select
> > > > End Sub
---------------------------------
thanks
Jeff
> > > > > > i got a macro that print certain sheets by verifying
> > > > > > if a certain cell is filled
> > > > > > the macro print 1 to 5 sheets
> > > > > > my prob is that all shhets print ok except 1 of my sheets print
> > > > > > only the cell borders without the data
> > > > > > i've look the print area and its fine
> > > > > > secundo
> > > > > > when i use the menu file print command
> > > > > > the sheets print just fine
i've pasted a second code here that i have the same prob with sheet rapport
> > > > > > anyone got this problem before???????
> > > > > > thanks
> > > > > > jeff
2----------------------------------------
> Private Sub CommandButton2_Click()
> Sheets("rapport").Visible = True
>
> Sheets(Array("master", "rapport")).Select
> Application.Dialogs(xlDialogPrint).Show
> Sheets("rapport").Visible = False
>
>
> Sheets("Start").Select
> End Sub
1---------------------------------------
> > > > Private Sub CommandButton1_Click()
> > > >
> > > > Sheets("g1").Visible = True
> > > > Sheets("g2").Visible = True
> > > > Sheets("g3").Visible = True
> > > > Sheets("g4").Visible = True
> > > >
> > > >
> > > > Dim rng As Range, cell As Range
> > > > Dim varr As Variant
> > > > Dim i As Long
> > > > Dim bFirst As Boolean
> > > > varr = Array("master", "g1", "g2", "g3", "g4")
> > > >
> > > > i = -1
> > > > With Worksheets("master")
> > > > Set rng = Range("l10,l10,l11,l12,l13")
> > > > End With
> > > > bFirst = True
> > > > For Each cell In rng
> > > > i = i + 1
> > > > If Not IsEmpty(cell) Then
> > > > If IsNumeric(cell) Then
> > > > If cell.Value > 0 Then
> > > > If bFirst Then
> > > > Worksheets(varr(i)).Select True
> > > > Else
> > > > Worksheets(varr(i)).Select False
> > > > End If
> > > > bFirst = False
> > > > End If
> > > > End If
> > > > End If
> > > > Next
> > > > If Not bFirst Then
> > > > Application.Dialogs(xlDialogPrint).Show
> > > > End If
> > > >
> > > > Sheets("g1").Visible = False
> > > > Sheets("g2").Visible = False
> > > > Sheets("g3").Visible = False
> > > > Sheets("g4").Visible = False
> > > >
> > > > Sheets("Start").Select
> > > > End Sub
---------------------------------
thanks
Jeff