Tel que promis je viens de mettre a jour mon code source allez amuser vous ..
Imprimer un rapport dans un système de gestion.
Facile avec des mesures en cm et une foule de fonction qui permet d'imprimer du texte, des cercles, des lignes, des rectangles.
....Je sais il manque des commentaires... ça s'en vient
Source / Exemple :
Dim sBuffer As String
Dim PositionX As Single
Dim PositionY As Single
Dim bPreview As Boolean
bPreview = True 'SI a False vas imprimer sur votre imprimante par défaut
PositionX = 10
PositionY = 100
sBuffer = "Hello Word"
If IMP_Initialise( bPreview ) Then
Call IMP_Texte ( sBuffer, PositionX , PositionY )
Call IMP_FinDocument ( bPreview )
End if
Conclusion :
C'est cool pour faire un rapport dans un programme de gestion si on ne veut pas ce servir de Crystal Report ou autres..
Je remettrai à jour mon code dans les plus brefs délais pour mettre plus de commentaire
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.