Thema Datum  Von Nutzer Rating
Antwort
18.08.2017 12:12:51 BUBU
NotSolved
23.08.2017 08:59:12 Ben
NotSolved
Rot Druckbereich und PDF Bereich erscheinen zu klein
 24.08.2017 09:23:40 BUBU
NotSolved
24.08.2017 20:52:44 Ben
NotSolved

Ansicht des Beitrags:
Von:
BUBU		 Datum:
24.08.2017 09:23:40		 Views:
553		 Rating:
     
Antwort:
  Ja
Thema:
Druckbereich und PDF Bereich erscheinen zu klein

Das ist mein Code wo ich PDF´s erzeuge:

 

Sub pdf()
Dim loLetzte As Long
' loLetzte = .Cells(Rows.Count, 1).End(xlUp).Row
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
   Dim dValue As String
   dValue = TextBox1.Text
Dim sPath As String
sPath = ThisWorkbook.Path  'Wird im gleichen Ordner gespeichert
If sPath = "" Then
MsgBox "Die Datei muß zuerst gespeichert werden"
Exit Sub
End If
sPath = IIf(Right$(sPath, 1) = Application.PathSeparator, sPath, sPath & Application. _
PathSeparator)

Dim rng As Range
Set rng = Blatt3.Range("A2:W" & last) 'Immer die Letzte Zeile nehmen
'Zellenname = Range("A9")
On Error GoTo ENDE
Application.DisplayAlerts = False
Dim PDF_NAME As String
PDF_NAME = dValue & "_Export vom " & Format(Date, "dd.mm.yyyy") & ".pdf" 


If Not PDF_NAME = "Falsch" Then
rng.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDF_NAME, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End If

ENDE:
Application.DisplayAlerts = True

 MsgBox prompt:="Der Name der PDF lautet " & PDF_NAME
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
18.08.2017 12:12:51 BUBU
NotSolved
23.08.2017 08:59:12 Ben
NotSolved
Rot Druckbereich und PDF Bereich erscheinen zu klein
 24.08.2017 09:23:40 BUBU
NotSolved
24.08.2017 20:52:44 Ben
NotSolved