Results 1 to 3 of 3

Letters in a cell being cut-off.

This is a discussion on Letters in a cell being cut-off. within the Excel Questions forums, part of the Question Forums category; I have a large spreadsheet, and the last column is a problem. It looks fine on the screen. When I ...

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

    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?

    Thanks

  2. #2
    VoG
    VoG is offline
    MrExcel MVP
    Moderator
    VoG's Avatar
    Join Date
    Jun 2002
    Location
    127.0.0.1
    Posts
    63,102

    Default

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

    =CLEAN(TRIM(A1))

    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
    Location
    Olympia
    Posts
    7,985

    Default

    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.
    Code:
    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.
    John

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
  •  


DMCA.com