Soyez le premier à donner votre avis sur cette source.
Snippet vu 19 435 fois - Téléchargée 80 fois
'--------------------------------------------- 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
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
Une question : Comment fais-tu pour centrer un texte dans une page ?
Encore merci.
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.
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.