Print to PDF and Resize Row Height by Len Text

how i can do looping print to pdf
and automatic row height (if len text is short then wrap row height will be short else row height will be autofit with text) by criteria in K14
this is my makro
-------------------------------------------------------------------------------------
Public Const Path = "C:\Users\test\"
Sub PrintTOPDF()
Sheets("Data").Activate
With Application
.ScreenUpdating = 0
End With
For r = 1 To 5
Range("K14").Value = r
'how i can autofit Row in range("C14:i14") by lookup value in k14
'how i can do exportPdf with select folder (folder picker)
'how i can do after item1 ,item2,item3,item4 and item5 print to pdf then merge to one file in pdf can do it ?
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Path & "Item" & r & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Next
With Application
.ScreenUpdating = 1
End With
End Sub

i has find ok thankyou solved

I felt “.WrapText = True” is unstable, suggest “.justify”.

Sub ZZ()
Application.ScreenUpdating = 0
Application.DisplayAlerts = 0
Dim arr As Variant, MyW As Single, OW As Single, r%
With Sheets("data")
    arr = .[c1].CurrentRegion
    .[c14].WrapText = False
    .[c14].MergeCells = False
    OW = .[c14].ColumnWidth
For i = 3 To 9
    MyW = MyW + Cells(14, i).ColumnWidth
Next
.[c14].ColumnWidth = MyW
    For i = 2 To UBound(arr)
        .Range("c14:c" & .[c65536].End(3).Row) = ""
        .[c14] = arr(i, 1)
        .[c14].Justify
        r = r + 1
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Path & "Item" & r & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
    Next
    .[c14].ColumnWidth = OW
End With
Application.ScreenUpdating = 1
Application.DisplayAlerts = 1
End Sub

ikboy i mean c14 = vlookup(k14;a2:c6;2;0)
and k14 is number from a2 to a6
if k14 = a2 then
text in c14 is autofit row height
if k14 = a3 then
text in c14 is autofit row height
until A6
for this step
------------------------
for i = 1 to 6
range("K14").value = i
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Path & "Item" & r & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
' i want after k14 looping by i then printtoPDF and autofit Row height in c14
next