Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1792to1796
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1792to1796
1792to1796
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

PDF Reset Button mittels VBA aktivieren

PDF Reset Button mittels VBA aktivieren
16.11.2020 08:21:15
Ledi
Hallo Zusammen,
Ich habe mittels vba eine Schleife erstellt um ein pdf mit mehreren Zeilen an excel Daten zu füllen und das Ergebnis in excel nach jeder Zeile zu übernehmen.
Ich würde gerne zum Ende des Befüllen und der Ergebnisübernahme im Code den reset Button einbauen so dass ich sicher sein kann dass für die nächste Zeile keine alten Daten in den Felder vorhanden sind. Alternativ einen Befehl der dafür sorgt dass alle Felder in der pdf zurückgesetzt werden.
Kennt jemand den Befehl dafür?
Vielen Dank schon mal vorab.
Liebe Grüße
Ledi

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: PDF Reset Button mittels VBA aktivieren
16.11.2020 09:21:58
Yal
Hallo Ledi,
da bräuchten wir ein Paar Zeilen aus deinem Coding, weil sonst alle potentielle Helfer blind raten müssen.
VG
Yal
AW: PDF Reset Button mittels VBA aktivieren
17.11.2020 06:34:55
Ledi
Guten Morgen
Der Button auf dem PDF ist eine Schaltfläche und heißt „Reset“. Hier der VBA Code:
Public Sub Fill_PDF_Form()
Dim gApp As Acrobat.CAcroApp
Dim AvDoc As Acrobat.CAcroAVDoc
Dim gPDDoc As Acrobat.CAcroPDDoc
Const DOC_Folder As String = "C:\Test"
Dim x, bOK As Boolean
Dim sDoc As Object
Set gApp = CreateObject("AcroExch.App")
Set gPDDoc = CreateObject("AcroExch.PDDoc")
Set AvDoc = CreateObject("AcroExch.AVDoc")
Dim FormApp As AFORMAUTLib.AFOrmApp
Dim AcroForm As AFORMAUTLib.Fields
Dim Field As AFORMAUTLib.Field
Dim start_c, end_c As Long
Dim lz As Long
Dim wksSTART As Worksheet
Dim wksTest As Worksheet
Dim wksELneu As Worksheet
Dim ObjJSO As Object
Dim pdDoc As Object
Set pdDoc = AvDoc.GetPDDoc
Set ObjJSO = pdDoc.GetJSObject
'Variablen setzen
Set wksSTART = ActiveWorkbook.Worksheets("START")
Set wksTest = ActiveWorkbook.Worksheets("Test")
'Star-und Endzeile
start_c = Val(wksSTART.Cells(6, 2).Value) 'Zellbezug evtl. noch ändern
If start_c Jetzt sollte der Reser Button alles im Formular zurücksetzen für die nächste Zeile 
ObjJSO.GetField("ResetAll").Value = "1"
'ObjJSO.GetField("Reset").Value = 1

'Weiter im Prozess
weiter:
'nächste Zeile
Next r
'Ausgabe der Info-Messagebox über die Dauer des Prozesses
end_date = Now
interval_date = end_date - start_date
strOutput = "Durchlauf abgeschlossen" & Chr(10) & "Startzeit: " & start_date & Chr(10) & " _
Endzeit: " & end_date & Chr(10)
strOutput = strOutput & Int(CSng(interval_date * 24)) & ":" & Format(interval_date, "nn:ss") _
_
& " Stunden:Minuten:Sekunden"
MsgBox strOutput, vbInformation
'Pdf schließen
AvDoc.Close (1)
gApp.Exit
End Sub

Anzeige
AW: PDF Reset Button mittels VBA aktivieren
17.11.2020 09:45:56
Yal
Hallo Ledi,
ObjJSO.GetField("ResetAll").Value = "1"
--> da müsste man prüfen, ob diese ObjJSO eine Funktion hat, um den Field anzutriggern. Siehe dafür die Online Hilfe des Objekt-Bibliotheks.
Was ich nicht verstehe:
Reset all bedeutet "ich mache alles neu", spricht, die Version davor habe ich bereit fertig und gespeichert. zwischen For und Next finde ich aber keine Speichern.
Alternativ:
Vielleicht anstatt auf einem DA.pdf, dass wohl vorher bereit befüllt worden ist, stets eine leere Vorlage öffnen?
Viel Erfolg
Yal
AW: PDF Reset Button mittels VBA aktivieren
17.11.2020 11:51:38
Ledi
Hallo,
Wo kann ich den einsehen was die Schaltflächen macht. Es wird mir kein Exportwert in den Eigenschaften gezeigt.
Zu der Frage mit for und next:
Vor dem Betätigen des Reset-Button steht
wkstest.Cells(r, 62).value= .Fields(„GES“).value
Da wird das Ergebnis in dir excel überragen und er soll nach dem reset Button wieder mit der nächsten Zeile weitermachen.
Anzeige

208 Forumthreads zu ähnlichen Themen

PDF Printer via VBA anwählen
Henner

Hi,
ich möchte aus einer UserForm heraus eine Tabelle als PDF 'drucken', habe FreePDF installiert. Dafür habe ich einem Button in der UF das folgende Makro zugewiesen:
Sub print_pdf() Sheets("print").Select Application.ActivePrinter = "FreePDF XP auf Ne02:" ActiveWindow.SelectedSheets...
04.09.2008 14:48:00
Thread-ID: 1007425
2 Beiträge
Anzeige
Problem bei PDF-Erzeugung mit VBA über PDF Creator
Martin

Hallo liebe Excel-Kenner,
mein Ziel ist es per VBA über den PDF-Creator eine PDF-Datei erzeugen, die alle Arbeitsblätter der Excel-Arbeitsmappe enthält. Mit dem VBA-Code vom "Excelguru" Ken Puls (http://www.excelguru.ca/node/21) klappt das auch bis auf ein störendes Problem sehr gut.
Me...
21.10.2010 12:54:09
Thread-ID: 1183312
11 Beiträge
PDF-Creator und ExcelVBA
ing.grohn

Hallo Forum,
um aus einer Excel-Tabelle ein PDF-Formular zu machen, benutze ich die Routine "PrintToPDF_Early" von Excel-Guru (Ken Puls).
Funktioniert eigentlich ganz gut.
ABER: ab und zu meldet sich "das System" mit der Meldung, dass der Creator nicht initialisiert werden kann und...
07.09.2012 11:41:51
Thread-ID: 1277440
3 Beiträge
Anzeige
VBA Macro Tabelle über Button als pdf sichern und
Andre

Hallo.
ich kenne mich noch sehr wenig mit der VBA Sprache aus und deshalb benötige ich ein wenig Hilfe.
Ich möchte in einer Excel Arbeitsmappe die Tabelle ZEF_Jan und die Tabelle SPE_Jan als PDF an einem bestimmten Ort sichern, beide Tabellen hintereinander in einer PDF Datei, diese ge...
18.03.2017 23:56:15
Thread-ID: 1548239
2 Beiträge
VBA - Excel to pdf mit Hyperlinks
Jo

Hallo zusammen,
nach erfolgloser Suche versuche ich es bei euch. Ich möchte eine Exceldatei mit mehreren Tabellenblättern per Makro als pdf speichern. Die Schwierigkeit sind die enthaltenen Hyperlinks auf Seiten innerhalb des Dokuments.
Beim manuellen speichern über "Als Adobe pdf speic...
23.05.2017 08:31:10
Thread-ID: 1559822
4 Beiträge
VBA Druckbutton Ausgabe als PDF
Micha

Hallo Zusammen,
ich versuche in meinen Excel einen Button zu integrieren der folgendes machen soll (Button ist bereits da und funktioniert auch).
Der Rechner ist vorbelegt mit einem Drucker. Mit "klick" auf den Button soll das Dokument (Tabellenblatt / blätter) aber nicht aktiv als Bla...
19.02.2019 15:19:55
Thread-ID: 1676517
18 Beiträge
Wie mit VBA die PrintScreen-Taste deaktivieren?
Stephan
Hallo!
Ich möchte gerne verhindern, dass von einem Tabellenblatt eine Bildschirm-Hardcopy mit Hilfe der Tasten [ALT]+[Druck] bzw. [ALT]+[PRTSCR] erstellt werden kann.
Habe es schon mit Application.OnKey "{PRTSC}", "" und Application.OnKey "%{PRTSC}", "" versucht - Excel beschwert sich nicht,...
11.07.2003 13:17:19
Thread-ID: 279833
5 Beiträge
VBA - Userform Button zusätzl PDF erstel
Kevin

Hallo zusammen,
ich bräuchte mal Hilfe von euch.
Habe mich mal etwas an VBA gewagt und komme immer besser zu recht. Googlen hilft sehr, aber hier finde ich keine passende Lösung.
Ich habe eine UserForm erstellt, welche die Einträge in verschiedene Zellen kopiert sobald ich den Butto...
17.03.2020 13:43:51
Thread-ID: 1746494
3 Beiträge
Anzeige

Links zu Excel-Dialogen

MessageBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
5
10
2
1
1
3
17
4
2
2
1
6
3
3
3
1
4
13
2
2
3
2
1
1