Impression

Soyez le premier à donner votre avis sur cette source.

Snippet vu 19 017 fois - Téléchargée 77 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

Commenter la réponse de gosney
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.