Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Codeblatt mit Rändern drucken

Gruppe

Standard

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