PDF erstellen

[baemir23]

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...

[Gast 123]

Hallo

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

[RPP63]

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

Code:

wsCurrent.Range("A1:K35").ExportAsFixedFormat […]

Gruß Ralf

[baemir23]

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

Danke im voraus für die Hilfe ...

[RPP63]

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

[26865]

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.

[baemir23]

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

[26865]

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

[RPP63]

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?

[26865]

vielleicht komme ich ja nochmal über den "TÜV".

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