ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Can one adjust Format Row Autofit to ensure WYSIWYG when printing (https://www.excelbanter.com/excel-discussion-misc-queries/43619-can-one-adjust-format-row-autofit-ensure-wysiwyg-when-printing.html)

GraySmithy

Can one adjust Format Row Autofit to ensure WYSIWYG when printing
 
Does anyone know if you can adjust Format Rows Autofit to ensure WYSIWYG when
printing. I am continually frustrated that when I print after using the
autofit function that I get text cut in half and underlines missing. Autofit
does not seem to work properly. Can it be set to slightly overcompensate
perhaps?



NlCO


Hi Gray, this problem only happens when you're working in a zoom
different from 100%; so if you're working with 115% and autofit the
rows they won't show up properly when you print (they will be cutted)
Also there is a problem you have to consider is when you use Bold or
Italic fonts. If you're using them it's better to make the Autofit
zooming the sheet at 90% and then printing, that way you'll get the
whole cell for sure.

Saludos

NlCO


--
NlCO
------------------------------------------------------------------------
NlCO's Profile: http://www.excelforum.com/member.php...o&userid=26123
View this thread: http://www.excelforum.com/showthread...hreadid=401415


Dave Peterson

I don't think you can ensure anything. But you could autofit and add just a bit
to each rowheight?

I adjusted all the used rows in the active worksheet with this:

Option Explicit
Sub testme01()

Dim wks As Worksheet
Dim myRow As Range

Set wks = ActiveSheet
With wks
.UsedRange.Rows.AutoFit
For Each myRow In .UsedRange.Rows
myRow.RowHeight = myRow.RowHeight + 2
Next myRow
End With

End Sub

You can play around with that "fudge factor" to see if a smaller number would be
sufficient (or larger???).

====
And sometimes when you have lots of text in cells, the last few rows just seem
to drop off the world. If you add alt-enters every 80-100 characters, you can
see more in the cell.

The bad news is that autofit may not work (depending on how much text is
there). You'd have to resize that row manually (or add a line to the macro--if
you know the line number!):

With wks
.UsedRange.Rows.AutoFit
For Each myRow In .UsedRange.Rows
myRow.RowHeight = myRow.RowHeight + 2
Next myRow
.rows(33).rowheight = 66
End With

GraySmithy wrote:

Does anyone know if you can adjust Format Rows Autofit to ensure WYSIWYG when
printing. I am continually frustrated that when I print after using the
autofit function that I get text cut in half and underlines missing. Autofit
does not seem to work properly. Can it be set to slightly overcompensate
perhaps?


--

Dave Peterson


All times are GMT +1. The time now is 08:39 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com