Problem with text toolbox in connection with printing

SteVer1880 Suppose your textbox is named TextBox1 and the codename of the worksheet it is on is Sheet1. Enter this code in the ThisWorkbook module:

Option Explicit

Public OldHeight As Double
Public OldWidth As Double

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If ActiveSheet.Name = "Sheet1" Then
        OldHeight = Sheet1.TextBox1.Height
        OldWidth = Sheet1.TextBox1.Width
        Sheet1.TextBox1.AutoSize = True
    End If
    Application.OnTime Now, "ReSizeBox"
End Sub

Insert a module and enter this code into it:

Option Explicit

Sub ReSizeBox()
    With Sheet1.TextBox1
        .AutoSize = False
        .Height = ThisWorkbook.OldHeight
        .Width = ThisWorkbook.OldWidth
    End With
End Sub