Hi Bob

no, after i change the combobox, it looks for the selected entry the user
made and
looks if a cell is equal (1 or "") or else....after that it changes the
optbuttons from
where it goes to SetPages, where it jumps back to the Cmb_Template_Change
event, after changing the Printarea!


"Bob Phillips" wrote:

Is there something in the secondpage procedure that can trigger it?

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Carlo" wrote in message
...
Hi Sandy and all the others

Thanks for your answer, unfortunately it didn't work!

here's my code, hope it isn't to messy:
--------------------------------------------------------------------------
----------------------
Private Sub Cmb_Template_Change()

Dim TemplateRow As Integer
Dim TemplateCol As Integer
Dim ArrayRoman(5) As String

TemplateRow = 11 + Me.Cmb_Template.ListIndex * 10
TemplateCol = 9

ArrayRoman(0) = "I"
ArrayRoman(1) = "II"
ArrayRoman(2) = "III"
ArrayRoman(3) = "IV"
ArrayRoman(4) = "V"
ArrayRoman(5) = "VI"

If ActiveSheet.Cells(TemplateRow + 1, TemplateCol) = 1 Or
ActiveSheet.Cells(TemplateRow + 1, TemplateCol) = "" Then
Me.Opt_1Page = True 'here it jumps to the Opt_1Page_Click() which is
ok
Else
Me.Opt_2Page = True 'here it jumps to the Opt_2Page_Click() which is
ok
End If

Me.Cmb_Title = ActiveSheet.Cells(TemplateRow, TemplateCol + 1)
Me.Cmb_Logo = ActiveSheet.Cells(TemplateRow + 1, TemplateCol + 1)

For i = 0 To 5
For j = 1 To 8
Me("Cmb_" & ArrayRoman(i) & "_" & j) =
ActiveSheet.Cells(TemplateRow
+ j - 1, TemplateCol + 2 + i)
Next j
Next i

Me.Cmb_Level_Row2 = ActiveSheet.Cells(TemplateRow + 8, TemplateCol + 3)
Me.Cmb_Level_Row3 = ActiveSheet.Cells(TemplateRow + 8, TemplateCol + 4)
Me.Cmb_Level_Row5 = ActiveSheet.Cells(TemplateRow + 8, TemplateCol + 6)
Me.Cmb_Level_Row6 = ActiveSheet.Cells(TemplateRow + 8, TemplateCol + 7)

End Sub

Private Sub Opt_1Page_Click()
Call SetPages
End Sub

Private Sub Opt_2Page_Click()
Call SetPages
End Sub

Sub SetPages()
'Application.EnableEvents = False
If Opt_1Page = True Then
Sheets("Final").PageSetup.PrintArea = "$A$1:$P$61" 'after setting
the printarea, the debugger jumps up to the cmb_template_Change, but only
if
you changed the combo at least once!!!!
Call secondpage(False)
Else
Sheets("Final").PageSetup.PrintArea = "$A$1:$P$122"
Call secondpage(True)
End If
'Application.EnableEvents = True
End Sub

Private Sub UserForm_Initialize()
Sheets("Layout").Select
Call SetPages
End Sub
--------------------------------------------------------------------------
----------------------

Thanks again for any help

Carlo

"Sandy" wrote:

Try setting Application.EnableEvents = False, then setting it to true
when you are finished. If this doesn't work post the code for the combo
box change event, and the code for the changing of the print area


HTH

Sandy
Carlo wrote:
Hi everybody

by changing the printarea of a sheet with VBA, my code jumps to the
onchange
code of a Combobox, which has nothing to do with the printarea.

To be more precisely: after initializing the form, the changing of the
printarea
works fine, after using the combobox, the changing of the printarea
triggers
the
onchange event of the combobox. It's always the same combobox!
In the code of the combobox i change the printarea too, but that
shouldn't
be the
problem, because it shouldn't get activated at all!

Anyone had some similar issues?

Thanks for any help

Carlo