Når jeg gemmer til PDF klipper den af taksten

Behøver nok lidt flere oplysninger. F.eks.:

Gemmer hvad fra hvilket program?

(Og også gerne styresystem o.l.)

Langskud:

https://www.excelforum.com/for-other-platforms-mac-google-docs-mobile-os-etc/1183852-save-as-pdf-cuts-off-text-in-cells.html

(Omtaler så vidt jeg kan se din egen løsning plus et par andre forslag.)

https://answers.microsoft.com/en-us/msoffice/forum/msoffice_excel-mso_mac-mso_365hp/excel-cell-data-getting-cut-off-when-printing/32aae659-aa2f-4ef6-bc61-5f7bb31498cd?page=1

Kig på de nederste svar på denne side. Bruger du skrifttypen Calibri?
Prøv at ændre til anden skrifttype og se om det afhjælper problemet.

@falster
Det er Win 10, Ecxel 365.
Når jeg vil gemme eller printe til PDF fra et Excel ark, så kapper den fx en halv linje af enten for oven eller for neden i en celle, hvor jeg har flere linjer i.
Det viser sig allerede i preview af PDF printet.
I excel ser det fint ud.

Fatter det ikke.

@falster,
Den side du linker til har jeg set og prøvet, dog uden held.

Docthomassen,

Ser interessant ud.
Det vil jeg lige teste i aften.

Nedenstående kode overfører fra det ene ark til det andet, som skal printes ud, i PDF, som jeg har problemer med.
Kan man lave den så den fx overfører teksten som Calibri?

Har dog en anden, måske lille ting i samme kode der driller mig.
Det er at den overskriver de linjer den har overført, hvor der står "TEKST", når den kører den der kigger efter "JA".
Samt hvordan får jeg den til at sætte cellebredderne til fx 300?

Sub OveførttilTEST2()
   
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim LR1 As Long, LR2 As Long, LR3 As Long, LR4 As Long, n As Long, i As Long, b As Long, Lastrow As Long
   
   
    Set ws1 = Sheets("TEST")
    Set ws2 = Sheets("TEST2")
 
    Worksheets("TEST2").Unprotect
    ws2.Range("A119:A" & Rows.Count).ClearContents
    ws2.Range("B119:B" & Rows.Count).ClearContents
    ws2.Range("C119:C" & Rows.Count).ClearContents
    ws2.Range("D119:D" & Rows.Count).ClearContents
    ws2.Cells.Borders.LineStyle = xlLineStyleNone
   
    LR1 = ws1.Range("B" & Rows.Count).End(xlUp).Row
    ActiveSheet.Unprotect
   
    Application.ScreenUpdating = False
   
    LR2 = 119
   
    For i = 10 To LR1
   
    'Det er denne der overskrives af den ElseIF nedenfor
   
        If ws1.Range("B" & i).Value = "TEKST" Then
            ws2.Cells(LR2, "A").Value = ws1.Cells(i, "A").Value
            ws2.Cells(LR2, "A").BorderAround xlContinuous
            ws2.Cells(LR2, "A").Font.Size = 10
            ws2.Cells(LR2, "B").Value = ws1.Cells(i, "D").Value
            ws2.Cells(LR2, "B").BorderAround xlContinuous
            ws2.Cells(LR2, "B").Font.Size = 10
            ws2.Cells(LR2, "C").Value = ws1.Cells(i, "AA").Value
            ws2.Cells(LR2, "C").BorderAround xlContinuous
            ws2.Cells(LR2, "C").Font.Size = 10
            ws2.Cells(LR2, "D").Value = ws1.Cells(i, "AA").Value
            ws2.Cells(LR2, "D").BorderAround xlContinuous
            ws2.Cells(LR2, "D").Font.Size = 10
           
           
    ElseIf ws1.Range("B" & i).Value = "JA" Then
            ws2.Cells(LR2, "A").Value = ws1.Cells(i, "A").Value
            ws2.Cells(LR2, "A").BorderAround xlContinuous
            ws2.Cells(LR2, "A").Font.Size = 10
            ws2.Cells(LR2, "B").Value = ws1.Cells(i, "D").Value
            ws2.Cells(LR2, "B").BorderAround xlContinuous
            ws2.Cells(LR2, "B").Font.Size = 10
            ws2.Cells(LR2, "C").Value = ws1.Cells(i, "R").Value
            ws2.Cells(LR2, "C").BorderAround xlContinuous
            ws2.Cells(LR2, "C").Font.Size = 10
            ws2.Cells(LR2, "D").Value = ws1.Cells(i, "Q").Value
            ws2.Cells(LR2, "D").BorderAround xlContinuous
            ws2.Cells(LR2, "D").Font.Size = 10
           
        LR2 = LR2 + 1
       
        End If
           
    Next i
   
     
    Application.ScreenUpdating = True
 
   
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True
    Worksheets("TEST2").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True
    Worksheets("TEST").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True
 
   
End Sub

Det ser ud til at virke det med at ændre skrifttype.

Tusind tak.

Opretter et andet spørgsmål med kørsel af If og endnu en If.