Impression multiple avec une variable

[guigui76]

Bonjour, je désire imprimer une selection fixe et une variable en faite les 10 dernieres colonne renseignées.

Je bloque sur le cumul des sélections.
Une grand merci

Sub sdf()

Dim x As Range
Dim d As Range

With ThisWorkbook
Set x = Range("iv17").End(xlToLeft).Offset(0, -10).Resize(20, 11)
Set d = Range("a17:a36")
End With
If Not x Is Nothing Then

[COLOR="Red"]d: x.Select[/COLOR]
    
   ' Selection.PrintOut Copies:=1, Collate:=True
    
End If
End Sub

 

[guigui76]

Re : Impression multiple avec une variable

J'ai la solution

Sub sdf()

Dim x As Range
Dim d As Range
Dim t As Range
With ThisWorkbook
Set x = Range("iv17").End(xlToLeft).Offset(0, -10).Resize(20, 11)
Set d = Range("a17:a36")
'Range(d).Select

[COLOR="Red"]Set t = Application.Union(x, d)[/COLOR]  End With
If Not x Is Nothing Then
  t.Select
   ' Selection.PrintOut Copies:=1, Collate:=True
    
End If
End Sub

Un grand merci à toute les personnes qui ont lu mon post.