Results 1 to 3 of 3

Thread: Letters in a cell being cut-off.

  1. #1
    New Member
    Join Date
    Jul 2007
    Newport Beach, CA

    Default Letters in a cell being cut-off.

    I have a large spreadsheet, and the last column is a problem. It looks fine on the screen. When I print, it will cut-off a portion of the last letter, and sometimes an entire letter.

    The cells are formated "wrap text", Vertical = "bottom" and Horizontal = General.

    I am using a print area.

    I've tried many things but to no avail. One thing I noticed is when I format the column to "autofitselection" it gets very wide, even though I don't have anything that wide in any cells.

    Anyone know how I can get my cut-off letters to print?


  2. #2
    MrExcel MVP VoG's Avatar
    Join Date
    Jun 2002


    One possibility is that you have extraneous spaces or 'unprintable' characters in some cells.


    and copied down should resolve this. You could also try setting the print area to one column to the right (a blank column) of the last one that you want to print.
    HTH, Peter
    Please test any code on a copy of your workbook.

  3. #3
    Board Regular Datsmart's Avatar
    Join Date
    Jun 2003


    ASCII characters sometimes come over from mainframe extracts. TRIM and CLEAN do not pick up ASCII characters 127 and 160. The procedure below will remove the most common of them.
    Sub TrimALL()
    'David McRitchie 2000-07-03 mod 2000-08-16 join.htm
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Dim cell As Range
    'Also Treat CHR 0160, as a space (CHR 032)
    Selection.Replace What:=Chr(160), Replacement:=Chr(32), _
    LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
    Do Same with carriage return (Alt-Enter)
    Also Treat CHR 010, as a space (CHR 032)
    Selection.Replace What:=Chr(10), Replacement:=Chr(32), _
    LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
    'Trim in Excel removes extra internal spaces, VBA does not
    On Error Resume Next 'in case no text cells in selection
    For Each cell In Intersect(Selection, _
    Selection.SpecialCells(xlConstants, xlTextValues))
    cell.Value = Application.Trim(cell.Value)
    Next cell
    On Error GoTo 0
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
    End Sub
    Select the range you want to work with, then run the macro code.

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts