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
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.