|
Hallo zusammen,
Ich habe ein Script Programmiert womit ich über den befehlt "Application.SendKeys "{Tab}", True" durch die PDF gehe und dann immer einzelt Felder ausfüllen lasse. Jetzt habe ich zwei Fragen, ist es möglich die PDF sofort ausfüllen zu lassen und wie ich auf die Letzte seite der PDF komme, wäre in meinem Fall die Seite 8.
Danke im Voraus.
Hier das Script:
Sub PagePack()
Dim PDFTemplate, NewPDFName, SavePDFFolder, LastName As String
Dim ApptDate As Date
Dim CustRow, LastRow As Long
With Tabelle3
LastRow = .Range("E9999").End(xlUp).Row 'Last Row
PDFTemplateFile = .Range("I108").Value 'Template File name
SavePDFFolder = .Range("I110").Value ' Save PDF Folder
ActiveWorkbook.FollowHyperlink "C:\Users\dominik.arndt\Desktop\PagePackServicevertrag_vierteljährig_neu.pdf"
Application.Wait Now + 0.000006
For CustRow = 5 To 5 'LastRow
Verkäufer = .Range("E2").Value 'Verkäufer
Application.SendKeys "{Tab}", True
Application.SendKeys Verkäufer, True
Application.Wait Now + 0.000008
Firma = .Range("E3").Value 'Firma
Application.SendKeys "{Tab}", True
Application.SendKeys Firma, True
Application.Wait Now + 0.000008
Name = .Range("E4").Value 'Name
Application.SendKeys "{Tab}", True
Application.SendKeys Name, True
Application.Wait Now + 0.000008
Straße = .Range("E5").Value 'Straße
Application.SendKeys "{Tab}", True
Application.SendKeys Straße, True
Application.Wait Now + 0.000008
PLZ = .Range("E6").Value 'PLZ
Application.SendKeys "{Tab}", True
Application.SendKeys PLZ, True
Application.Wait Now + 0.000008
Tel = .Range("E7").Value 'Tel
Application.SendKeys "{Tab}", True
Application.SendKeys Tel, True
Application.Wait Now + 0.000008
MS = .Range("K13").Value 'Gerätebezeichnung
Application.SendKeys "{Tab}", True
Application.SendKeys MS, True
Application.Wait Now + 0.000008
Preis = .Range("L42").Value 'Preis
Application.SendKeys "{Tab}", True
Application.SendKeys Preis, True
Application.Wait Now + 0.000008
SWV = .Range("L71").Value 'Schwarzweiß Volumen
Application.SendKeys "{Tab}", True
Application.SendKeys SWV, True
Application.Wait Now + 0.000008
FarbVolumen = .Range("L72").Value 'Farbvolumen
Application.SendKeys "{Tab}", True
Application.SendKeys FarbVolumen, True
Application.Wait Now + 0.000008
SWP = .Range("L73").Value 'Schwarzweiß Kosten
Application.SendKeys "{Tab}", True
Application.SendKeys SWP, True
Application.Wait Now + 0.000008
FP = .Range("L74").Value 'Farbkopie Kosten
Application.SendKeys "{Tab}", True
Application.SendKeys FP, True
Application.Wait Now + 0.000008
WN = .Range("L118").Value 'Wiedernachoben
Application.SendKeys "{Tab}", True
Application.SendKeys WN, True
Application.Wait Now + 0.000008
Next CustRow
End With
End Sub
|