Impression

Soyez le premier à donner votre avis sur cette source.

Snippet vu 19 234 fois - Téléchargée 80 fois

Commenter

Contenu du snippet


Source / Exemple : 


'---------------------------------------------
Printer.PaperSize = vbPRPSA4
'---------------------------------------------
Printer.CurrentX = 5
Printer.CurrentY = 5
L = Printer.CurrentX
H = Printer.CurrentY
Printer.ScaleMode = vbMillimeters
Printer.Print
Printer.Font = "Times New Roman"
'Printer.ScaleHeight = 210       '   x
'Printer.ScaleWidth = 297        '   y

'Printer.Line (l, 0)-(190, 0)
'Printer.Line (l, 0)-(0, 39.5)
Printer.Line (L, H)-(L + 190, H + 39.5), vbBlack, B
'Printer.Line (190, 39.5)-(0, 39.5)

Printer.Line (L + 24, H)-(L + 24, H + 39.5), vbBlack
'---------------------------------------------
Printer.PaintPicture Image1.Picture, L + 1, H + 1, 23, 37
'---------------------------------------------
Printer.FontBold = True
Printer.CurrentX = L + 26
Printer.CurrentY = H + 1
Printer.FontSize = 20
Printer.Print "Certificat de conformité aux exigences énergétiques"
'---------------------------------------------
Printer.FontBold = False
Printer.CurrentX = L + 70
Printer.CurrentY = H + 9
Printer.FontSize = 10
Printer.Print "Selon le règlement cantonal du 4 mars 1992"
Printer.CurrentX = L + 64
Printer.Print "de la loi du 11 mars 1987 sur les économies d'énergie"
'---------------------------------------------
Printer.Line (L + 24, H + 17.5)-(L + 190, H + 17.5), vbBlack
'---------------------------------------------
Printer.CurrentX = L + 26
Printer.CurrentY = H + 23
Printer.FontSize = 12
Printer.Print "Commune :                                                  Objet :";
Printer.CurrentX = L + 47
Printer.Print Text1;
Printer.CurrentX = L + 111.5
Printer.Print Text5
Printer.CurrentX = L + 26
Printer.CurrentY = H + 31
Printer.Print "Enquête n° : ______________________    Lieu dit : ___________________"
'---------------------------------------------
'Printer.CurrentX = L + 26
'Printer.CurrentY = H + 10
'Printer.Print Format(Date, "dd  mmmm yyyy")
'---------------------------------------------
Printer.Line (L, H + 43)-(L + 190, H + 78.2), vbBlack, B
'---------------------------------------------
Printer.FontBold = True
Printer.CurrentX = L + 1
Printer.CurrentY = H + 46
Printer.Print "Le maître d'ouvrage"
Printer.FontBold = False

Printer.CurrentX = L + 19
Printer.Print "déclare vouloir respecter la législation sur l'énergie"
Printer.CurrentX = L + 19
Printer.Print "et s'engage à procéder à une réalisation du projet conforme aux exigences y relatives."
Printer.CurrentX = L + 19
Printer.CurrentY = H + 65
Printer.Print "Lieu :";
Printer.CurrentX = L + 62
Printer.Print ", le";
Printer.CurrentX = L + 94
Printer.Print "Timbre et signature"
'---------------------------------------------
Printer.Line (L, H + 81.5)-(L + 190, H + 246.5), vbBlack, B
'---------------------------------------------
Printer.FontBold = True
Printer.CurrentX = L + 1
Printer.CurrentY = H + 83.5
Printer.Print "Le bureau d'Architecture"
Printer.FontBold = False

Printer.CurrentX = L + 19
Printer.Print "par la personne compétente M.";
Printer.CurrentX = L + 115
Printer.Print "tél.";
Printer.CurrentX = L + 72.5
Printer.Print Text3;
Printer.CurrentX = L + 121
Printer.Print Text4
Printer.CurrentX = L + 19
Printer.CurrentY = H + 102
Printer.Print "Lieu :";
Printer.CurrentX = L + 62
Printer.Print ", le";
Printer.CurrentX = L + 94
Printer.Print "Timbre et signature"
'---------------------------------------------
Printer.FontBold = True
Printer.CurrentX = L + 1
Printer.CurrentY = H + 112
Printer.Print "Le bureau d'étude Chauffage"
Printer.FontBold = False
Printer.CurrentX = L + 19
Printer.Print "par la personne compétente M.";
Printer.CurrentX = L + 115
Printer.Print "tél.";
Printer.CurrentX = L + 72.5
Printer.Print "Olivier Gremaud";
Printer.CurrentX = L + 121
Printer.Print Text2
Printer.CurrentX = L + 19
Printer.CurrentY = H + 127
Printer.Print "Lieu :";
Printer.CurrentX = L + 62
Printer.Print ", le";
Printer.CurrentX = L + 94
Printer.Print "Timbre et signature";
Printer.CurrentX = L + 68
Printer.Print Format(Date, "dd.mm.yyyy")
'---------------------------------------------
Printer.FontBold = True
Printer.CurrentX = L + 1
Printer.CurrentY = H + 144.5
Printer.Print "Le bureau d'étude Ventilation"
Printer.FontBold = False

Printer.CurrentX = L + 19
Printer.Print "par la personne compétente M.";
Printer.CurrentX = L + 115
Printer.Print "tél.";
Printer.CurrentX = L + 72.5
Printer.Print "";
Printer.CurrentX = L + 121
Printer.Print ""
Printer.CurrentX = L + 19
Printer.CurrentY = H + 159
Printer.Print "Lieu :";
Printer.CurrentX = L + 62
Printer.Print ", le";
Printer.CurrentX = L + 94
Printer.Print "Timbre et signature"
'---------------------------------------------
Printer.FontBold = True
Printer.CurrentX = L + 1
Printer.CurrentY = H + 176.5
Printer.Print "Le bureau d'étude Sanitaire"
Printer.FontBold = False

Printer.CurrentX = L + 19
Printer.Print "par la personne compétente M.";
Printer.CurrentX = L + 115
Printer.Print "tél.";
Printer.CurrentX = L + 72.5
Printer.Print "";
Printer.CurrentX = L + 121
Printer.Print ""
Printer.CurrentX = L + 19
Printer.CurrentY = H + 191
Printer.Print "Lieu :";
Printer.CurrentX = L + 62
Printer.Print ", le";
Printer.CurrentX = L + 94
Printer.Print "Timbre et signature"
'---------------------------------------------
Printer.FontBold = True
Printer.CurrentX = L + 1
Printer.CurrentY = H + 206
Printer.Print "Le bureau d'étude Electricité"
Printer.FontBold = False

Printer.CurrentX = L + 19
Printer.Print "par la personne compétente M.";
Printer.CurrentX = L + 115
Printer.Print "tél.";
Printer.CurrentX = L + 72.5
Printer.Print "";
Printer.CurrentX = L + 121
Printer.Print ""
Printer.CurrentX = L + 19
Printer.CurrentY = H + 221
Printer.Print "Lieu :";
Printer.CurrentX = L + 62
Printer.Print ", le";
Printer.CurrentX = L + 94
Printer.Print "Timbre et signature"
'---------------------------------------------
Printer.FontSize = 10
Printer.CurrentX = L + 19
Printer.CurrentY = H + 233
Printer.Print "certifient que les indications ci-jointes relatives au projet sont exactes et complètes. Ils attestent avoir établi le"
Printer.CurrentX = L + 19
Printer.CurrentY = H + 237
Printer.Print "projet selon les prescriptions du réglement du canton du Valais sur les mesures d'économie d'énergie dans le"
Printer.CurrentX = L + 19
Printer.CurrentY = H + 241
Printer.Print "domaine du bâtiment et réglé les éventuelles ambiguïtés avec les autorités et experts compétents."
'---------------------------------------------
Printer.FontSize = 10
Printer.FontBold = True
Printer.CurrentX = L + 1
Printer.CurrentY = H + 252
Printer.Print "A remplir par la commune"

Printer.FontBold = False
Printer.CurrentX = L + 6
Printer.CurrentY = H + 257
Printer.Print "formulaires définitifs en attente délai donné : ............."

Printer.CurrentX = L + 100
Printer.CurrentY = H + 257
Printer.Print "formulaire définitifs reçus le : ............."

'---------------------------------------------
Printer.PaintPicture Image3.Picture, L + 1, H + 258, 3, 3
Printer.PaintPicture Image3.Picture, L + 95, H + 258, 3, 3
Printer.Line (L, H + 250)-(L + 190, H + 250), vbBlack
Printer.Line (L, H + 250)-(L, H + 268), vbBlack
Printer.Line (L + 190, H + 250)-(L + 190, H + 268), vbBlack
Printer.Line (L, H + 268)-(L + 190, H + 268), vbBlack
'---------------------------------------------
Printer.CurrentX = L + 188
Printer.CurrentY = H + 275
Printer.Print "1"
'---------------------------------------------
Printer.EndDoc

A voir également

Ajouter un commentaire

Commentaires

Signaler
BABUDROME
Messages postés
151
Date d'inscription
lundi 16 janvier 2006
Statut
Membre
Dernière intervention
19 avril 2016
 -
QUAND je définit une ligne ou un cadre avec
Printer.Line (10,60)-(190,160), , B jobtiens un cadre noir.
SI j'écris
Printer.Line (10,60)-(190,160),vbRed , B j'ai toujourd un cadre noir.
Saurais-tu pourquoi ?
Merci
Signaler
poof65
Messages postés
89
Date d'inscription
samedi 19 avril 2003
Statut
Membre
Dernière intervention
26 janvier 2008
 -
ouah c'est tres bien présenté ton texte. Mé bon c sur que ca doit prendre du temps a faire une mise en page aussi soignée ...
Signaler
gilardh
Messages postés
70
Date d'inscription
mercredi 21 août 2002
Statut
Membre
Dernière intervention
22 février 2008
 -
Merci beaucoup pour cette exemple.
Une question : Comment fais-tu pour centrer un texte dans une page ?
Encore merci.
Signaler
cs_albatros
Messages postés
1
Date d'inscription
mardi 10 octobre 2000
Statut
Membre
Dernière intervention
5 janvier 2002
 -
merci pour cet exemple, il m'est tres utile, car mon besoin et d'imprimer sur un préimprimé avec une imprimante laser et donc je n'arrive pas à localiser les cordonnées X,Y parceque cela depond de l'insertion de la feuille est ce que vous pouvez m'aider merci encore une fois
Signaler
-
Si sur chaque courrier tu dois te taper la mise en page de ta lettre a la main, tu n'as pas fini de coder des trucs chiant.

Ca aurait étè plus sympa un 'moteur d'edition'.

Personnellement, dans un contexe professionnel j'utilise Crytal Report, c'est plus cher, mais bcp bcp bcp plus puissant.

Bonne continuation.
S'inscrire maintenant

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.