what ive got on my spreadsheet is
J1:Q1 as merged cells with text in it
in T1 i have the exact same text

I have set the column width of Col T with the below code

Sub SetWidthOfColD()
 Dim sngWidth As Single
 
With Sheets("Sheet4")
 sngWidth = .Columns("J").ColumnWidth + _
 .Columns("K").ColumnWidth + _
 .Columns("L").ColumnWidth + _
 .Columns("M").ColumnWidth + _
 .Columns("N").ColumnWidth + _
 .Columns("O").ColumnWidth + _
 .Columns("P").ColumnWidth + _
 .Columns("Q").ColumnWidth
 
If (sngWidth < 40) Then
 .Columns("T").ColumnWidth = sngWidth
 End If
 End With
 End Sub
The physical size on the screen and when printed is different between the cells.

This matters to me as I am running out of space on the page when printing.

Any tips that might help me solve this?