1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
|
Private Sub fModifVersionPDf()
If CInt(Mid(lbVersionPDF.Text, Len(lbVersionPDF.Text), 1)) = CInt(Mid(cbVersionPDF.Text, 3, 1)) Then
MessageBox.Show("Attention c'est la même version !")
Exit Sub
End If
If CInt(Mid(lbVersionPDF.Text, Len(lbVersionPDF.Text), 1)) > CInt(Mid(cbVersionPDF.Text, 3, 1)) Then
MessageBox.Show("Désolé, je ne peux pas mettre ce fichier PDF dans une version plus ancienne !")
Exit Sub
End If
Try
Using _fStream As New FileStream(tbModifVersionPDFOriginale.Text & ".tmp.pdf", FileMode.Create)
Using pdfReader As New PdfReader(tbModifVersionPDFOriginale.Text)
' Attention, on peut upgrader mais pas downgrader de version PDF !
Using stamper = New PdfStamper(pdfReader, _fStream, Mid(cbVersionPDF.Text, 3, 1))
stamper.Close()
End Using
_fStream.Close()
pdfReader.Close()
End Using
End Using
GC.Collect()
Thread.Sleep(1000)
File.Delete(tbModifVersionPDFOriginale.Text)
File.Move(tbModifVersionPDFOriginale.Text & ".tmp.pdf", tbModifVersionPDFOriginale.Text)
lbVersionPDF.Text = "Version PDF : " & cbVersionPDF.Text
MessageBox.Show("Le traitement a bien été réalisé.")
Catch ex As Exception
MessageBox.Show(ex.ToString & vbCrLf & vbCrLf & "CELA VA RELANCER LE TRAITEMENT.")
Call fModifVersionPDf()
End Try
End Sub |
Partager