1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| 'impression
MsgBox ("Etes-vous prêt à imprimer ? (Cliquez sur OK, une fois prêt)")
Range("A25").Select
Rows("1:45").Select
If nbcell <= 45 Then
SendKeys ThePath & TheFile + "C:\Documents and Settings\SM ALU\Mes documents\CLIENTS"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, ActivePrinter:="eDocPrinter PDF Pro", Collate _
:=True
Else
With ActiveSheet.PageSetup
.PrintTitleRows = "$24:$25"
.PrintTitleColumns = ""
End With
SendKeys ThePath & TheFile + "C:\Documents and Settings\SM ALU\Mes documents\CLIENTS"
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, ActivePrinter:="eDocPrinter PDF Pro", Collate _
:=True
End If
End Sub |
