HERBERS Excel-Forum - die Beispiele

Thema: Codeblatt mit Rändern drucken

Home

Gruppe

VBE

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

suche Taschenrechner in VBE Hyperlinks - Standardordner ändern
Standarddrucker festsetzen?? Standard-Farbpalette dauerhaft ändern
standard Währungsformat abfragen Outlook Standardkonto ändern
Excel-Logo in Standardleiste entfernen Format der Zielzellen-Als Standard beim Kopieren?!
Standardmailer Excel standard Symbolleiste im Internet Explorer
Dauerhafte Änderung der Standardfarben Standard-Ausgabe
Copy/Paste in Text als Standard Dateianhang per Standardmailer versenden
Standarddrucker VBE Optionen setzen
Standardabweichung in Pivot-Chart Standardeinstellung für Kommentare ändern
Erweiterung der VBE Befehl in standard Menü einbauen
Standardeigenschaft bei selbstdef. Klassen Standardabweichung und Zeilenbezug
vbeplus EXCEL Balkendiagramm Mittelwert und Standardabw
Kann Standardspeicherort nicht ändern Standardabweichung in Balkendiagramm einfügen
Standard Format für Kommentare Standard-Drucker als Auswahl im Drucken...-Menu
Excel Standardfunktionen in VBA nutzen Standardspeicherort
Standardansicht VBA-Umgebung wiederherstellen Ereignisprozeduren automatisiert VBE
Automatisierungsfehler Codename VBE Diagramm mit Häufigkeit, Mittelwert, Standardabwei
Verwendung Addin vbeplusde VBA Email Standard Thunderbird
PROBLEM mit den Standard Paletten Fraben Standarddiagrammtyp
ClassModule StandardModule wie wohin schreiben Frage Archivbeitrag - Schreibschutz Benutzerrechte
Standardnormalverteilung in 5 Teilen eigene menüleiste und standardmenüpunkte
Standardabweichung in Balkendiagramm Standardfehler
CSV-Standardeinstellungen ändern Bei erster Makroausführung öffnet sich VBE im Debu
VBE-Kontextmenü "Definition" Standardabweichung
Standardfehler berechnen GetOpenFilename: Standard-Pfad anzeigen?