SAISIR UNE ADRESSE ET L'IMPRIMER SUR UNE ENVELOPPE 220X110
mdry
Messages postés
33
Date d'inscription
dimanche 25 juillet 2004
Statut
Membre
Dernière intervention
5 mai 2013
-
24 févr. 2013 à 19:07
Cjvg Messages postés 330 Date d'inscription mercredi 6 décembre 2000 Statut Membre Dernière intervention 26 octobre 2017 - 26 févr. 2013 à 15:43
Cjvg Messages postés 330 Date d'inscription mercredi 6 décembre 2000 Statut Membre Dernière intervention 26 octobre 2017 - 26 févr. 2013 à 15:43
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/54986-saisir-une-adresse-et-l-imprimer-sur-une-enveloppe-220x110
https://codes-sources.commentcamarche.net/source/54986-saisir-une-adresse-et-l-imprimer-sur-une-enveloppe-220x110
- Violation d'adresse ......... dans le module
- Remplir un grille de jeu binero
- Comment savoir si une adresse ip est valide
- Violation d'accès à l'adresse...
- Mathurine a créé son profil sur un forum, en renseignant comme adresse électronique : mathurine[arobase]pixmail.org pourquoi a-t-elle écrit son adresse de cette manière ?
26 févr. 2013 à 15:43
Je n'y croyais pas beaucoup, mais, par acquis de conscience, j'ai écrit le tout petit programme qui est joint afin de confirmer ce que je pensais.
Quelque soit l'orientation choisie, la marge Basse ou Droite est toujours de 25 Mm. J'en conclu, SAUF ERREUR DE MA PART que cette marge ne peut-être réduite. Si ce n'est pas le cas, je vous demande un exemple concret pour me prouver le contraire.
J'ai installé en deux mois sur ce site, une quarantaine de projets pour apporter ma contribution.(7000 personnes les ont téléchargés et sont restés muettes comme des carpes). J'ai passé beaucoup de temps à soigner la présentation pour n'avoir en contrepartie que des critiques ou quelques remarques sans grand intérêt.
Je suis de plus en plus déçu de l'attitude des gens et je me demande si je ne ferais pas mieux de tout arrêter.
D'ou la réponse que je vous ai adressée.
J'ai reconnais avoir été un peu brutal envers vous et vous prie de bien vouloir m'en excuser.
--------------------------------------------------------------------------------------------------------
Private Sub Form_Load()
' Chargement les Options d'Impression
' -----------------------------------
'Printer.ScaleMode = vbMillimeters
Printer.ScaleMode = vbTwips '<-- €€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€
Printer.PaperSize = vbPRPSEnvDL ' 27 Enveloppe DL (11 x 22 cm)
Printer.Orientation = vbPRORLandscape ' vbPRORPortrait .
'Printer.Orientation = vbPRORPortrait 'vbPRORLandscape .
Printer.FontName = "Script MT Bold"
Printer.FontSize = 20
Printer.FontUnderline = False
Printer.FontItalic = False
Printer.FontBold = True
Printer.ForeColor = vbBlack
Printer.CurrentY = 0
Printer.CurrentX = 0
' Avec une orientation Paysage ou Portrait la marge est toujours de 25 Mm
'For i1 = 1 To 80
Printer.Print "41 Caractères " & String(31, "x") & "0123456789"
Printer.Print "40 Caractères " & String(30, "x") & "0123456789"
Printer.Print "39 Caractères " & String(29, "x") & "0123456789"
Printer.Print "38 Caractères " & String(28, "x") & "0123456789"
'Next i1
Printer.EndDoc
End
End Sub
25 févr. 2013 à 19:28
En passant l"abréviation de
Monsieur = M. avec le point
Madame = Mme sans de point
Mademoiselle = Mlle sans de point
C'est juste à titre d'information
J'ai développé plusieurs projets mais pas sur site.
Selon vous, je site "Je n'ais pas voulu chercher trop longtemps..."
J'ai l'impression que vous n'avez jamais lus mes commentaires.
En ce qui concerne ta question: J'ai résolu le problème.
Bye
25 févr. 2013 à 18:43
Je vous trouve bien sévère envers MDRY qui n'a pas fait de commentaires désobligeants mais juste quelques remarques (sans animosité) dont certaines sont d'ailleurs pertinentes.
Ceci dit, je n'ai pas la réponse à votre question mais j'ai été enthousiasmé par votre programme proposé.
Clair, bien fait et surtout pour moi....Très utile !!
Alors je me suis empressé de le transformer pour adjoindre une base de données de ma composition (Fichier à accès aléatoire)et vraiment il fonctionne bien et votre code m'a beaucoup "maché" le travail.
Donc, félicitations et merci
Stéphane
25 févr. 2013 à 11:04
Vous décortiquez minutieusement chaque ligne de la source pour essayer de trouver quelque chose et pouvoir ainsi poster un commentaire.
Je constate également que vous n'avez pas lu les rubriques Description et Conclusion.
J'ai posé une question précise que le technicien chevronné que êtes n'a pas été capable de solutionner ?.
La critique c'est très bien lorsqu'elle est justifiée. La pratique c'est mieux.
COMBIEN DE SOURCES AVEZ VOUS DEPOSEES ? ..
0 source , 0 tutoriel CS, 0 tutoriel TS, 0 snippet
24 févr. 2013 à 19:07
Dans Sub LecParm()
--> FreeFile: retourne un Integer, pas un Long
--> Zlec = Zlec & "€"
Inutile d'ajouter un "point écrasé" à la fin
--> Select Case D(0)
Case "Options"
If D(3) "Vrai" Then PBOLD True
If D(4) "Vrai" Then PITALIC True
Tu peux remplacer par
PBOLD = D(3)
PITALIC = D(4)
Vrai/True, Faux/False, il est convertie en Boolean
Dans Sub EcrParm()
--> Pourquoi mettre un € "point écrasé" à la fin?
Dans Sub DimMarges()
--> Pourquoi tout convertir en mm
Met le tout en Twips. De toute façon CurrentX ou CurrentY travail en Twips et ton enveloppe est aussi en Twips, donc c'est plus simple pour contrôler les marges.
Dans Sub lblCentrer_Click()
--> Tu as oublié d'informer la nouvelle position à pMarge et pTop.
Dans Sub MSHFlexGrid2_Click()
Vers la fin
Rirow = Irow
--> Ricol Ricol Remplacer par Ricol Icol
Dans Sub label1_Mouseup(...)
--> Utilise MargeGauche/MargeHaute pour les limites autorisées, non pas un chiffre quelconque. Chanque imprimante est différente.
À part de ça, tout est bien.
Bye