Listbox print out how to set column width

[Tayl4n]

Dear MrExcel community,

I search & fill listbox with textbox then I print listbox values with this code;

Private Sub cmdPrint_Click()
If ListBox1.ListCount = 0 Then
MsgBox “There is no data for print”
Exit Sub
End If
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim i As Workbook
Set i = Workbooks.Add
Range(“A2”).Resize(ListBox1.ListCount, ListBox1.ColumnCount).Value = ListBox1.List
Unload Me
i.Sheets(1).ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & “\” & “List.pdf”
i.Close False

Listbox codes;

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 33
ListBox1.Liste = Range(“A2:AG750”).Value

But some columns datas not fit. I need to set columns width.
Thank you for your time and interest!

 

[Tayl4n]

Dear MrExcel community,

I search & fill listbox with textbox then I print listbox values with this code;

Private Sub cmdPrint_Click()
If ListBox1.ListCount = 0 Then
MsgBox “There is no data for print”
Exit Sub
End If
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim i As Workbook
Set i = Workbooks.Add
Range(“A2”).Resize(ListBox1.ListCount, ListBox1.ColumnCount).Value = ListBox1.List
Unload Me
i.Sheets(1).ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & “\” & “List.pdf”
i.Close False

Listbox codes;

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 33
ListBox1.Liste = Range(“A2:AG750”).Value

But some columns datas not fit. I need to set columns width.
Thank you for your time and interest!

‘also searh and filter textbox codes about listbox

Me.ListBox1.Clear
Me.ListBox1.ColumnCount = 33
Me.ListBox1.ColumnHeads = False
Me.ListBox1.ColumnWidths = “”

 

[Tayl4n]

Any help please ?

 

[MrIfOnly]

Are you trying to autofit the columns or make them manually adjustable?

 

[Tayl4n]

Actually

Are you trying to autofit the columns or make them manually adjustable?

Hey actually I manually setting with these codes but datas changing so autofit would be much better solution for me ??

i.Sheets(1).Range("D:D").columnwidth = 20  'change to suit

 

[MrIfOnly]

Untested, but how about:

With i.Sheets(1)
        With .PageSetup
             .Zoom = False 
             .FitToPagesTall = 1 
             .FitToPagesWide = 1
       End With
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & “\” & “List.pdf”
End With

Not sure if that'll work for PDF or not.

 

[Tayl4n]

Untested, but how about:

With i.Sheets(1)
        With .PageSetup
             .Zoom = False
             .FitToPagesTall = 1
             .FitToPagesWide = 1
       End With
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & “\” & “List.pdf”
End With

Not sure if that'll work for PDF or not.

Unfortunately not work

 

[MrIfOnly]

Shame. I, unfortunately, don't have any other suggestions for you.