collapse

* Benutzer Info

 
 
Willkommen Gast. Bitte einloggen oder registrieren. Haben Sie Ihre Aktivierungs E-Mail übersehen?

* Wer ist Online

  • Punkt Gäste: 52
  • Punkt Versteckte: 1
  • Punkt Mitglieder: 1

Es sind keine Mitglieder online.

* Forenstatistik

  • stats Mitglieder insgesamt: 14107
  • stats Beiträge insgesamt: 68024
  • stats Themen insgesamt: 9165
  • stats Kategorien insgesamt: 5
  • stats Boards insgesamt: 17
  • stats Am meisten online: 415

Autor Thema: Querformat drucken  (Gelesen 69 mal)

Offline SashaVBA

  • Newbie
  • Beiträge: 26
Querformat drucken
« am: November 06, 2018, 15:42:10 »
Hallo zusammen,
im Anhang hab ich folgende Formel, die mir mein Arbeitblatt als PDF auf mein Desktop ablegen soll.
Das klappt alles ohne Probleme, nur wird dieses nicht im Querformat abgelegt!
Wie bekomm ich das hin, habt ihr mir Ideen?
Danke vorab.
MfG Sasha

Option Explicit
Sub Optionsfeld4_Klicken()
'Übersicht Umsatz Picks als PDF auf Desktop ablegen
Dim FilePath As String: FilePath = CreateObject("WScript.Shell").specialfolders("Desktop") & "\Übersicht Umsatz Picks.pdf"
'Es kann keine PDF Datei erstellt werden, wenn die Excel Datei noch nie gespeichert wurde.
If ThisWorkbook.Path <> "\\daten\mueller\logistik\Qualitätssicherung\Qualitätskontrolle\Statistik\Picks SOLL täglich" Then
FilePath = ThisWorkbook.Path & "\\daten\mueller\logistik\Qualitätssicherung\Qualitätskontrolle\Statistik\Picks SOLL täglich" & Left(ThisWorkbook.Name,
InStr(1, ThisWorkbook.Name, ".Übersicht Umsätze Picks.xls") - 1) & ".pdf"
End If
'Worksheets("") muss monatlich angepasst werden!
Dim MyWorksheet As Worksheet: Set MyWorksheet = ThisWorkbook.Worksheets("November 18")
On Error GoTo ErrorOccured
MyWorksheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FilePath, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Exit Sub
ErrorOccured:
'Tritt auf wenn z.B. kein Inhalt zum Speichern im Worksheet vorhanden ist!
MsgBox "Es ist ein Fehler beim speichern des Worksheets als PDF aufgetreten." & vbCrLf & vbCrLf & _
"Description: " & Err.Description & vbCrLf & _
"Source: " & Err.Source & vbCrLf & _
"Number: " & Err.Number, vbCritical, "PDF Fehler"
End Sub

Bitte Code immer direkt hier einfügen, dabei die Codetags verwenden. Ich habe es geändert und den Anhang gelöscht. MzKlMu
« Letzte Änderung: November 06, 2018, 16:08:01 von MzKlMu »
 

 

Access 2007: Bericht als PDF im Querformat speichern

Begonnen von MarinhoBoard Bericht

Antworten: 4
Aufrufe: 5009
Letzter Beitrag Februar 06, 2011, 21:17:20
von database
Bericht im Querformat als PDF erzeugen - Mit des Programms von Stephen Lebans

Begonnen von TomTom2903Board Access Programmierung

Antworten: 11
Aufrufe: 7382
Letzter Beitrag August 02, 2013, 18:14:57
von database
Aus Access heraus per VBA Excel auf Querformat stellen

Begonnen von bhommiBoard Access Programmierung

Antworten: 5
Aufrufe: 1611
Letzter Beitrag März 28, 2017, 09:18:35
von bhommi
Drucken im Querformat

Begonnen von MinaBoard Formular

Antworten: 4
Aufrufe: 1331
Letzter Beitrag Oktober 19, 2016, 18:19:19
von Beaker s.a.