Check Boxes & Printing

  • Thread starter Thread starter Larry
  • Start date Start date
L

Larry

Using MS Office XP when I print an excel sheet with "check boxes" in it,
they are all printed to the left of thier original location and the file is
then changed to the same as the printed version.
 
Downloaded patch, can now get one correct print off printer, but file is
still moved over to left after the print.
 
That sounds kind of like what Myrna said.

What happened when you tried the KB article suggestion?
 
If I go in and change each box it works, but this will be a nightmare to go
through all my templates and correct this. Guess thats part of upgrading,
thanks for the help.
 
If you want to change every OLEObject, you could do this:

Option Explicit
Sub testme01()

Dim OLEObj As OLEObject
Dim wks As Worksheet

For Each wks In ActiveWorkbook.Worksheets
For Each OLEObj In wks.OLEObjects
OLEObj.Placement = xlMoveAndSize
Next OLEObj
Next wks

End Sub

If you want to be more conservative and only fiddle with the checkboxes:

Sub testme02()

Dim OLEObj As OLEObject
Dim wks As Worksheet

For Each wks In ActiveWorkbook.Worksheets
For Each OLEObj In wks.OLEObjects
If TypeOf OLEObj.Object Is MSForms.CheckBox Then
OLEObj.Placement = xlMoveAndSize
End If
Next OLEObj
Next wks

End Sub


If I go in and change each box it works, but this will be a nightmare to go
through all my templates and correct this. Guess thats part of upgrading,
thanks for the help.
Click to expand...
 
Back
Top