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?
Bookmarks