Bonjour le Forum
J'ai une imprimante a reçu (ELM 265/267 sur port LPT1)
voici comment je l'ai programer
Dim Nom, Nom1 As String
Nom = Application.ActivePrinter
For aa = 0 To 9
Nom1 = "ELM 265/267 sur LPT" & aa & ":"
On Error Resume Next
Application.ActivePrinter = Nom1
If ActivePrinter = Nom1 Then Exit For
Next
With Sheets("Mire")
.PageSetup.Orientation = xlPortrait
End With
FirstPageNumber = xlAutomatic
Order = xlDownThenOver
FitToPagesWide = 1
ActiveSheet.PageSetup.PrintArea = Range("X1:AA" & Range("X65536").End (xlUp).Row).Address ' Nomme la Plage a imprimer
ActiveSheet.PrintOut
Application.ActivePrinter = Nom
Elle fontionne tres bien mais elle n'arrète pas a la dernière ligne pleine
Les lignes que je doit imprimer s'ont toujour changante de 8 a 15 linges
j'aimerais qu'elle arrète d'imprimer a la ligne pleine pour ne pas gaspiller du papier
par default j'ai nommer page A3 pour l'imprimante
si quelqun a une solution sa serais très aprécier
Merci beaucoup @+
J'ai une imprimante a reçu (ELM 265/267 sur port LPT1)
voici comment je l'ai programer
Dim Nom, Nom1 As String
Nom = Application.ActivePrinter
For aa = 0 To 9
Nom1 = "ELM 265/267 sur LPT" & aa & ":"
On Error Resume Next
Application.ActivePrinter = Nom1
If ActivePrinter = Nom1 Then Exit For
Next
With Sheets("Mire")
.PageSetup.Orientation = xlPortrait
End With
FirstPageNumber = xlAutomatic
Order = xlDownThenOver
FitToPagesWide = 1
ActiveSheet.PageSetup.PrintArea = Range("X1:AA" & Range("X65536").End (xlUp).Row).Address ' Nomme la Plage a imprimer
ActiveSheet.PrintOut
Application.ActivePrinter = Nom
Elle fontionne tres bien mais elle n'arrète pas a la dernière ligne pleine
Les lignes que je doit imprimer s'ont toujour changante de 8 a 15 linges
j'aimerais qu'elle arrète d'imprimer a la ligne pleine pour ne pas gaspiller du papier
par default j'ai nommer page A3 pour l'imprimante
si quelqun a une solution sa serais très aprécier
Merci beaucoup @+