1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50
| Private Sub CommandButton2_Click()
On Error Resume Next
Dim WordApp As Object
Dim WordDoc As Object
Dim n As Integer
Dim NomEnseigne As String
Dim ville As String
NomEnseigne = Left(ListBox1.Value, InStr(1, ListBox1.Value, " ") - 1)
ville = Replace(ListBox1.Value, NomEnseigne & " ", "")
Set WordApp = CreateObject("Word.Application") 'ouvre session word
Set WordDoc = WordApp.Documents.Open("C:\Documents and Settings\moi\Bureau\Etiquette.doc") 'ouvre document Word
WordApp.Visible = False 'word masqué pendant l'operation
WordDoc.Bookmarks("Text1").Range.Text = NomEnseigne 'Remplace Signet Texte1 dans wd par colonne1 listbox
WordDoc.Bookmarks("Text2").Range.Text = ville
WordDoc.Bookmarks("Text7").Range.Text = ListBox1.List(ListBox1.ListIndex, 1) 'Remplace Signet Texte2 dans wd par colonne2 listbox
WordDoc.Bookmarks("Text9").Range.Text = ListBox1.List(ListBox1.ListIndex, 2)
Set myRange = WordDoc.Range(Start:=WordDoc.Bookmarks("Text1").Start, End:=WordDoc.Bookmarks("Text3").End)
With myRange
.Font.Name = "Verdana"
.Font.Size = 33
.Bold = True
.Italic = False
End With
Set myRange2 = WordDoc.Range(Start:=WordDoc.Bookmarks("Text7").Start, End:=WordDoc.Bookmarks("Text8").End)
With myRange2
.Font.Name = "Verdana"
.Font.Size = 18
.Bold = True
.Italic = False
End With
WordApp.Application.ActivePrinter = "PrinterColor"
n = Application.InputBox("nombre de copies", "Copies", Type:=1) 'Ouvre inputbox nb de copies, impose saisie de nombre
WordApp.Visible = True 'Affiche le doc word
WordApp.ActiveDocument.PrintOut Copies:=n 'Imprime le doc sur imprimante par défaut
WordApp.Application.ActivePrinter = "\\monréseau\PRT6220NB015"
WordApp.ActiveDocument.Close False 'Ferme le document sans enregister
WordApp.DisplayAlerts = wdAlertsNone
WordApp.Quit
End Sub |
Partager