VB Ligne Précédente
J62
Messages postés
2
Date d'inscription
mardi 30 septembre 2008
Statut
Membre
Dernière intervention
7 février 2010
-
30 sept. 2008 à 13:44
J62 Messages postés 2 Date d'inscription mardi 30 septembre 2008 Statut Membre Dernière intervention 7 février 2010 - 30 sept. 2008 à 14:13
J62 Messages postés 2 Date d'inscription mardi 30 septembre 2008 Statut Membre Dernière intervention 7 février 2010 - 30 sept. 2008 à 14:13
2 réponses
lillith212
Messages postés
1229
Date d'inscription
vendredi 16 novembre 2007
Statut
Membre
Dernière intervention
16 juin 2009
30 sept. 2008 à 13:58
30 sept. 2008 à 13:58
Bonjour,
Peux tu nous donner ton code?
Merci
S.L.B.
<hr />-- Le règlement tu liras -- Des recherches tu feras -- Le style SMS tu banniras --
-- De la validation pertinente tu feras -- Du respect tu auras -- Le bon thème tu choisiras
Peux tu nous donner ton code?
Merci
S.L.B.
<hr />-- Le règlement tu liras -- Des recherches tu feras -- Le style SMS tu banniras --
-- De la validation pertinente tu feras -- Du respect tu auras -- Le bon thème tu choisiras
J62
Messages postés
2
Date d'inscription
mardi 30 septembre 2008
Statut
Membre
Dernière intervention
7 février 2010
30 sept. 2008 à 14:13
30 sept. 2008 à 14:13
Vous trouverez ci-joint le script
Merci pour votre réponse
' ----------------------------------------------------------------------------------
' Demande de render d'une Page
' ----------------------------------------------------------------------------------
Public Overrides Sub MyPage_Render(ByVal strPdfFileName As String)
' ' Affectation du format du document
MyPDF_WidthPageInCentimeters = 29.7
MyPDF_HeightPageInCentimeters = 21
'
Dim strLine As String = ""
Dim StrLinePage As String
Dim BNewPage As Boolean = False
'
' ' Boucle sur la lecture des lignes
While (True)
' ' Lecture de la ligne
If (Not MyStream_ReadNextLine(StrLinePage)) Then Exit While
If BNewPage Then
If StrLinePage.trim = "" Then
Else
MyPDF_NewPage()
BNewPage = False
End If
End If
' ' imprimer la ligne'
MyPDF_WriteFormattedLine("Police,Courier New,8", StrLinePage, "")
' tester si fin de page
C'est à cet endroit que je bloque svp
MyContainer_LogInfo("fin page " & Microsoft.VisualBasic.Mid(strLinePage, 1, 10))
' ' Fin de page pdf
BNewPage = True
End If
End While
'
MyPDF_Generate(strPdfFileName)
End Sub
End Class
Merci pour votre réponse
' ----------------------------------------------------------------------------------
' Demande de render d'une Page
' ----------------------------------------------------------------------------------
Public Overrides Sub MyPage_Render(ByVal strPdfFileName As String)
' ' Affectation du format du document
MyPDF_WidthPageInCentimeters = 29.7
MyPDF_HeightPageInCentimeters = 21
'
Dim strLine As String = ""
Dim StrLinePage As String
Dim BNewPage As Boolean = False
'
' ' Boucle sur la lecture des lignes
While (True)
' ' Lecture de la ligne
If (Not MyStream_ReadNextLine(StrLinePage)) Then Exit While
If BNewPage Then
If StrLinePage.trim = "" Then
Else
MyPDF_NewPage()
BNewPage = False
End If
End If
' ' imprimer la ligne'
MyPDF_WriteFormattedLine("Police,Courier New,8", StrLinePage, "")
' tester si fin de page
C'est à cet endroit que je bloque svp
MyContainer_LogInfo("fin page " & Microsoft.VisualBasic.Mid(strLinePage, 1, 10))
' ' Fin de page pdf
BNewPage = True
End If
End While
'
MyPDF_Generate(strPdfFileName)
End Sub
End Class