spalte nach spalte ausdrucken

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Makro1() 'Application.ScreenUpdating = False ' Sub DruckenProSpalte() Dim Kauf3b As Worksheet Dim lngC As Long, lngLC As Long Set Kauf3b = ActiveSheet ActiveSheet.PageSetup.Orientation = xlPortrait ActiveSheet.PageSetup.TopMargin = Application.CentimetersToPoints(2) ActiveSheet.PageSetup.BottomMargin = Application.CentimetersToPoints(1) lngLC = Cells(Columns.Count, 1).End(xlToLeft).Column 'Letzte Spalte der Zeile 1 ermitteln If MsgBox("Sollen jetzt alle Spalten EINZELN gedruckt werden ?", _ vbYesNo + vbQuestion) = vbYes Then For lngC = 3 To lngLC 'Alle Spalten ab Spalte 3 Columns("3:" & lngLC).Hidden = True 'Zuerst ALLE Spalten ab Spalte 3 ausblenden Columns(lngC).Hidden = False 'nur aktuelle Spalte einblenden ActiveSheet.PrintOut 'Aktuelles Blatt ausdrucken Next End If 'Columns("3:" & lngLC).Hidden = False 'ALLE Spalten ab Spalte 3 wieder einblenden 'Application.ScreenUpdating = False End Sub Vielen Dank für einen guten Tipp und freundliche Grüsse Fritz

Guten Abend Werner
Ich habe weiterhin keinen Erfolg mit meinem Makro. Die Antwort betreffend die Hidden-Eigenschaft verunsichert mich. Hidden=True macht nach meiner Meinung die betreffenden Spalten unsichtbar. Entsprechend müsste die Sichtbarmachung Hidden=False heissen. Im zweiten E-Mail ist dies jetzt wohl ok, auch wenn der code noch nicht korrigiert ist. Unklar bleibt, weshalb beim printout-Befehl beim Drucker nichts passiert. Ein anderes Makro am gleichen Ort druckt fehlerfrei. Oder ist doch etwas am Zusammenhängen von Columns("3:" & lngLC).Hidden nicht in Ordnung? Die Lösung wäre sonst so elegant, wenn sie nur funktionieren würde. Oder gibt es wohl noch andere einfache Lösungen? Eine Lösung habe ich noch entwickelt, bei der ich aber jede Spalte zuerst markieren muss. Gäbe es da eine VBA-Lösung, die dieses Markierung über eine Schleife besorgen würde?
Nochmals das Makro mit dem Verstecken der Spalten im neusten Stand:

Sub Makro1()
'Application.ScreenUpdating = False
'

Sub DruckenProSpalte()
Dim Kauf3b As Worksheet
Dim lngC As Long, lngLC As Long
Set Kauf3b = ActiveSheet
ActiveSheet.PageSetup.Orientation = xlPortrait
ActiveSheet.PageSetup.TopMargin = Application.CentimetersToPoints(2)
ActiveSheet.PageSetup.BottomMargin = Application.CentimetersToPoints(1)
lngLC = Cells(Columns.Count, 1).End(xlToLeft).Column 'Letzte Spalte der Zeile 1 ermitteln
If MsgBox("Sollen jetzt alle Spalten EINZELN gedruckt werden ?", _
vbYesNo + vbQuestion) = vbYes Then
For lngC = 3 To lngLC 'Alle Spalten ab Spalte 3
Columns("3:" & lngLC).Hidden = True 'Zuerst ALLE Spalten ab Spalte 3 ausblenden
Columns(lngC).Hidden = False 'nur aktuelle Spalte einblenden
ActiveSheet.PrintOut From:=1, To:=1, Copies:=1 'Aktuelles Blatt ausdrucken
Next
End If
With ActiveSheet
.Range(.Columns(3), .Columns(lngLC)).Hidden = False
End With
'Application.ScreenUpdating = False
End Sub

Option Explicit Sub DruckenProSpalte() Dim lngC As Long, lngLC As Long With ActiveSheet .PageSetup.Orientation = xlPortrait .PageSetup.TopMargin = Application.CentimetersToPoints(2) .PageSetup.BottomMargin = Application.CentimetersToPoints(1) lngLC = .Cells(1, .Columns.Count).End(xlToLeft).Column 'Letzte Spalte der Zeile 1 ermitteln If MsgBox("Sollen jetzt alle Spalten EINZELN gedruckt werden ?", _ vbYesNo + vbQuestion) = vbYes Then .Range("D:D").Resize(, lngLC - 2).EntireColumn.Hidden = True .PrintPreview ' hier die erste mit A:C ausdrucken, dann erst Schleife: For lngC = 4 To lngLC 'Alle Spalten ab Spalte 3 .Columns(lngC - 1).Hidden = True .Columns(lngC).Hidden = False 'nur aktuelle Spalte einblenden .PrintPreview ' .PrintOut From:=1, To:=1, Copies:=1 'Aktuelles Blatt ausdrucken Next End If .Range("A:A").Resize(, lngLC).EntireColumn.Hidden = False End With End Sub

https://www.herber.de/bbs/user/109541.xlsx
Guten Abend Michael
Endlich komme ich dazu zurückzuschreiben. Vorerst gewaltigen Dank für das modifizierte Makro mit dem Beispiel. Dieses funktioniert mit Deinem Worksheet bei mir tadellos. Wenn ich aber mein Worksheet Kauf3b lade und mit dem Makro den spaltenweisen Ausdruck starte, kommt ein Laufzeitfehler 1004. Ich bin ziemlich am Ende meiner Weisheit. Ist es wohl, weil die auszudruckenden Felder relativ komplexe Formeln beinhalten?
Ich habe dann versucht, das Worksheet zu übermitteln, habe aber keine Chancen, die relativ engen Grenzen einzuhalten. Schliesslich musste ich mich auf eine Kopie einer Ecke beschränken: https://www.herber.de/bbs/user/109541.xlsx . Das Original ist für eine 100x350 Matrix festgelegt.
Es geht um ein Programm, das ich seit Jahren für Auktionen für meinen Briefmarkensammlerverein verwende. Da wurde der Wunsch geäussert, man möchte für die in den Spalten aufgeführten Käufe einen schriftlichen Beleg ausdrucken. Eben einen spaltenweisen Ausdruck der Resultatmatrix. Das Programm funktioniert so, dass für jedes ersteigerte Los der Preis und die Käufernummer eingegeben werden. Über diverse Matrixfunktionen werden die Käufe für jeden Bieter ontime sortiert und in die im Bild gezeigte Anordnung je Käufer gebracht. Aufgeführt werden nur die Bieter, die etwas gekauft haben. Für die Käufer würde der Ausdruck der Spalte A und die dem Käufer zugehörige Spalte genügen. Alle Totale für den Käufer sind in der oberen Zeilen seiner Spalte schon berechnet.
Ob ich wohl das Ziel eines Ausdrucks noch erreiche? Mit dem Makrostart sollten gleich alle Käufer mit einem Ausdruck bedient werden können. Falls noch Ideen bestehen, wie ich den Druck doch noch in Gang bringen könnte, wäre ich sehr, sehr dankbar! Und sammelt jemand bei Euch Briefmarken? Vielen Dank und freundliche Grüsse
Fritz

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread