1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Impression

Impression

Soyez le premier à donner votre avis sur cette source.

Snippet vu 19 600 fois - Téléchargée 82 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
BABUDROME
Messages postés
151
Date d'inscription
lundi 16 janvier 2006
Statut
Membre
Dernière intervention
19 avril 2016
29 oct. 2007 à 05:44
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
poof65
Messages postés
89
Date d'inscription
samedi 19 avril 2003
Statut
Membre
Dernière intervention
26 janvier 2008
31 oct. 2003 à 22:12
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 ...
gilardh
Messages postés
70
Date d'inscription
mercredi 21 août 2002
Statut
Membre
Dernière intervention
22 février 2008
22 août 2002 à 10:38
Merci beaucoup pour cette exemple.
Une question : Comment fais-tu pour centrer un texte dans une page ?
Encore merci.
cs_albatros
Messages postés
1
Date d'inscription
mardi 10 octobre 2000
Statut
Membre
Dernière intervention
5 janvier 2002
5 janv. 2002 à 15:16
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
gosney
23 oct. 2001 à 09:51
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.