Drucken eines Worksheets in einem Workbook

Hallo zusammen
Ich habe ein Workbook mit ca. 10 Worksheets und ich möchte nur das Rechnungsformular unter dem Worksheet "FAKTURIERUNG" ausdrucken.
Dazu habe ich mir ein Makro zusammengestellt, welches über ein Button folgende Funktionen ausführt:
1) Erstellung einer laufenden Rechnungsnummer mit dem Rechnungsdatum
2) Ausdrucken der Rechnung.
3) Kopieren der Daten in ein anderes Worksheet im selben Workbook.
Der Button ist zur Zeit auf der Seite der zu druckenden Rechnung (FAKTURIERUNG).
Beim Testen habe ich nun herausgefunden, dass wenn ich das Makro über den Makroeditor starte und in einem anderen Worksheet bin, dass dieses zur Zeit gerade offene Worksheet vollständig ausgedruckt wird. Also habe ich in meinem Makro mit Set ws=ActiveWorkbook.Sheets ("FAKTURIERUNG") eine Zeile eingefügt.
Das klappt nicht. Und dazu kommt noch, dass das Worksheet manchmal wie die Einstellung im Drucker ausgedruckt wird. Z.B. wenn ich davor z.B. aus dem Internet ein Formular im Querformat ausgedruckt habe, dann kommt mein Excelsheet ebenfalls in diesem letzten benützen Format, was ärgerlich ist.
Ich bin blutiger Anfänger darum wende ich mich an Euch und hoffe um eine geistreiche Idee.
Besten Dank
Stéphane
https://www.herber.de/bbs/user/134327.xlsx

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
teste mal:

Option Explicit
Sub Rechnung_Drucken()
Dim obj_ws_quelle As Worksheet, obj_ws_ziel As Worksheet
Dim RechNr As Long, Jahr As Long, Monat As Long
Dim lng_letzte_zeile As Long, i As Long
Set obj_ws_quelle = ThisWorkbook.Worksheets("FAKTURIERUNG")
Set obj_ws_ziel = ThisWorkbook.Worksheets("DEBITOREN")
With obj_ws_quelle
.PageSetup.Orientation = 1
.Range("H7:L54").PrintOut
Monat = .Range("O38")
Jahr = .Range("O39")
RechNr = .Range("P40")
If Jahr  Year(Date) Then
RechNr = 0
Jahr = Year(Date)
.Range("O39") = Jahr
End If
RechNr = RechNr + 1
.Range("P40") = RechNr
.Range("i20") = Format(RechNr, "00") & "_" & Monat & "/" _
& Jahr
.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End With
With obj_ws_ziel
lng_letzte_zeile = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
.Cells(lng_letzte_zeile, 2) = obj_ws_quelle.Cells(16, 11)
.Cells(lng_letzte_zeile, 3) = obj_ws_quelle.Cells(4, 16)
.Cells(lng_letzte_zeile, 4) = obj_ws_quelle.Cells(20, 9)
.Cells(lng_letzte_zeile, 5) = obj_ws_quelle.Cells(47, 12)
For i = 14 To 41
.Cells(lng_letzte_zeile, i) = obj_ws_quelle.Cells(9, i + 2)
Next i
End With
Set obj_ws_quelle = Nothing: Set obj_ws_ziel = Nothing
End Sub

Gruß Werner

Beliebteste Forumthreads (12 Monate)

Drucken eines Worksheets in einem Workbook

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread