Clever-Excel-Forum

Vielen Lieben Dank dafür ... das hat geklappt ....

Letzte frage dazu kann ich auch den Druckbereich angeben? z.B. Range ("A1:K35")

Danke im Voraus...

Hallo

bitte diesen Befehl VOR dem Druckauftrag einfügen:
 Sheets("dein Sheet Name").PageSetup.PrintArea = "$A$1:$K$35"
 
mfg Gast 123

Moin!
Als Alternative bietet sich die Range.ExportAsFixedFormat-Methode an:

Gruß Ralf

Kann der Druckbereich auch automatisch ermittelt werden. Das der Bereich Variable ist ?

Danke im voraus für die Hilfe ...

Meine Glaskugel befürchtet, dass Du Formeln auf Vorrat führst (mit Ausgabe ""), denn ansonsten ermittelt Excel den Bereich doch selbstständig.

(18.04.2024, 12:53)RPP63 schrieb: [ -> ]Meine Glaskugel

Inspektionszeitraum abgelaufen? Ölwechseltermin verpasst? Oder einfach nur nicht geputzt? Geht nicht so nachlässig mit den Dingern um! Die sind teuer und empfindlich.

ja habe in der Spalte ab "B11" Formeln hinterlegt ...   

würde gerne das automatisch geschaut wird von A 1 bis K x   ... x ist variable ....

geht das dennoch ?

VG

---

Der Code bisher...

Option Explicit

Public Sub CreatePDF()


Dim strDateiName    As String
Dim strDateiPfad    As String
Dim fDateinameTemp  As Variant
Dim wsCurrent        As Worksheet


strDateiPfad = ThisWorkbook.Path & Application.PathSeparator
fDateinameTemp = Split(ThisWorkbook.Name, ".")
fDateinameTemp(UBound(fDateinameTemp)) = "pdf"
strDateiName = Join(fDateinameTemp, ".")

Sheets("xx").PageSetup.PrintArea = "$A$1:$K$20"
Sheets("xx").PageSetup.PrintArea = "$A$1:$K$20"
Sheets("xx").PageSetup.PrintArea = "$A$1:$K$20"

'Komplette Datei sichern
Call ThisWorkbook.ExportAsFixedFormat( _
                                      Type:=xlTypePDF, _
                                      Filename:=strDateiPfad & strDateiName, _
                                      Quality:=xlQualityStandard, _
                                      IncludeDocProperties:=True, _
                                      IgnorePrintAreas:=False, _
                                      OpenAfterPublish:=True)
'Einzelne Blätter sichern
For Each wsCurrent In ThisWorkbook.Worksheets
  If wsCurrent.Visible = xlSheetVisible Then
If wsCurrent.Range("B4").Value = "Abrechnung Sonderleistungen" Then
      strDateiName = wsCurrent.Name & ".pdf"
      Call wsCurrent.ExportAsFixedFormat( _
                                          Type:=xlTypePDF, _
                                          Filename:=strDateiPfad & Range("B4") & strDateiName, _
                                          Quality:=xlQualityStandard, _
                                          IncludeDocProperties:=True, _
                                          IgnorePrintAreas:=False, _
                                          OpenAfterPublish:=True)
  End If
  End If
Next
End Sub

Dann beschreibe doch mal in klaren Worten: Woran erkennst DU (als Mensch), dass der Bereich zu Ende ist? 
Oder anders: Woran erkennt irgendjemand, dass die Formeln NICHT ausgedruckt werden sollen? Haben die Formeln als Ergebnis dann eine leere Zeichenfolge ("")? Ist das Ergebnis 0? 42? 

Das können wir nicht raten - und wenn wir es tun, wollen wir nicht "funktioniert nicht" hören - das frustriert und nervt. Ein bisschen musst du als Fragesteller schon selbst mitdenken und handeln.

---

Der Codeteil, der unerwünscht die komplette Datei als pdf speichert, ist ja immer noch vorhanden? 
Glücklicherweise steht mein Kommentar "'Komplette Datei sichern" noch darüber - das sollte dir helfen, den "nicht funktionierenden" Codeteil zu finden und zu löschen

Dann war meine Glaskugel ja klarer als befürchtet, EarlFred!
Davon ab, ich habe mir heute auch eine Inspektion verordnet, vielleicht komme ich ja nochmal über den "TÜV".

@baemir23:
Welche Spalte ist lückenlos manuell befüllt?

(18.04.2024, 15:50)RPP63 schrieb: [ -> ]vielleicht komme ich ja nochmal über den "TÜV".

ich drück Dir die Daumen, dass die Betriebserlaubnis weiter erteilt wird!