ListBox1' e aldığım verileri yazdırmak istiyorum aşağıdaki kodu düzeltebilirmiyiz. Hayırlı çalışmalar
Kod:
Private Sub CommandButton5_Click()
ListBox1.Select
With ActiveSheet.PageSetup
.PaperSize = xlPaperA4: .CenterHorizontally = True: .Orientation = xlPortrait
.Zoom = False: .FitToPagesWide = 1: .FitToPagesTall = 1
End With
Unload Me
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub