VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Codeblatt mit Rändern drucken

Gruppe

VBE

Bereich

Standard

Thema

Codeblatt mit Rändern drucken

Problem

Bei XL8 habe ich beim Druck eines Moduls nicht die Möglichkeit der Randeinstellung. Alle Drucke beginnen am äußersten oberern und linken Rand. Wie kann ich das ändern?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.




StandardModule: basMain

Sub ModulDrucken()
   Dim sTxt As String
   Application.ScreenUpdating = False
   With ThisWorkbook.VBProject.VBComponents("basMain").CodeModule
      sTxt = .Lines(1, .CountOfLines)
   End With
   sTxt = WorksheetFunction.Substitute(sTxt, vbCr, "")
   Workbooks.Add 1
   With Range("A1")
      .EntireColumn.ColumnWidth = 80
      .WrapText = True
      .Value = sTxt
      .Font.Name = "Courier New"
   End With
   ActiveSheet.PageSetup.LeftMargin = Application.InchesToPoints(1)
   ActiveSheet.PrintPreview
   ActiveWorkbook.Close savechanges:=False
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen VBE und Standard