CommandButtons relocate on worksheet when code runs ??

[Corey]

Just recently i have found that when i use a button to chech the number of pages needed to print
and print them,
ALL (but 1) CommandButton moves fromt he Right side to the left side of the page?


Why is it so?

Sub PrintReport() ' prints report worksheet
Call SetPrintAreaR
If Cells(22, 1).Value < 1 Then
Exit Sub
Else
ActiveWindow.ActiveSheet.PrintOut Copies:=1, Collate:=True
End If
End Sub

~~~~~~~~~~~~~~~~~~~~~~~~~~

Sub SetPrintAreaR() ' sets print area of Map according to No. of events
If Cells(22, 1).Value = 0 Then
ActiveSheet.PageSetup.PrintArea = "$A$1:$H$26" ' base area
MsgBox "There are No Events detected in the Report! ", vbOKOnly, sTitle ' warning
Else
ActiveSheet.PageSetup.PrintArea = "$A$1:$H$" & ((Cells(22, 1).Value * 4) + 22) ' calculates
where entered events cease
End If
End Sub

 

[NickHK]

Corey,
If this XL 2002 with SP3, here's a couple of solutions:

http://www.xtremevbtalk.com/showthread.php?t=191926
http://support.microsoft.com/?kbid=838910
but seems a hot-fix is available.

NickHK