Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια! |
![]() |
| Εργαλεία Θεμάτων | Τρόποι εμφάνισης |
#1
| |||
| |||
![]()
μια που αναφεραμε στο προηγουμενο ποστ σχετικα με το Pdf παραθετω τον κωδικα για split (ενα αρχειο Pdf με πολλες σελιδες να τις παρουμε μια-μια) Sub spiltPdf() Dim path, diadArxi, diadTeliki As String path =διαδρομηΑρχειου.Pdf <---------------------------------------------- Το αρχειο PDF diadArxi = path diadTeliki = Left(diadArxi , Len(diadArxi) - 4) Dim Acro_app As Acrobat.AcroApp Dim Acro_PDDoc As Acrobat.AcroPDDoc Dim Acro_NewPDDoc As Acrobat.AcroPDDoc Set Acro_app = New Acrobat.AcroApp Set Acro_PDDoc = New Acrobat.AcroPDDoc Acro_PDDoc.Open (diadArxi) Dim i As Integer For i = 0 To Acro_PDDoc.GetNumPages() - 1 Set Acro_NewPDDoc = New Acrobat.AcroPDDoc Acro_NewPDDoc.Create Acro_NewPDDoc.InsertPages -1, Acro_PDDoc, i, 1, 1 Acro_NewPDDoc.Save 1, diadTeliki & " - " & i & ".pdf" Next i End Sub |
![]() |
« Προηγούμενο Θέμα
|
Επόμενο Θέμα »
| |
| ||||
Θέμα | Δημιουργός | Forum | Απαντήσεις | Τελευταίο Μήνυμα |
Split form | mikekal1oo | Access - Ερωτήσεις / Απαντήσεις | 0 | 22-04-16 21:19 |
Η ώρα είναι 23:34.