Impression USF

[popof]

Bonjour à toi forum
Bonjour à toi lecteur
Bonjour à toi helpeur
Bonjour à moi (Respect des autres commence par soi même )

Question : Peut on imprimer uniquement un userform sans prendre en compte les feuilles qui apparaissent en arière plan ???

Voili voilou :whistle:

 

[popof]

re à tous

Nota : Suite à une mauvaise explication de ma part voici un complément
je sais faire

Private Sub CommandButton1_Click()
UserForm1.PrintForm

End Sub

Mais comment choisir son imprimante ???

Je pense que c mieux expliqué

 

[ljoue]

popof écrit:

re à tous

Nota : Suite à une mauvaise explication de ma part voici un complément
je sais faire

Private Sub CommandButton1_Click()
UserForm1.PrintForm

End Sub

Mais comment choisir son imprimante ???

Je pense que c mieux expliqué

Salut Popof,

Merci tu à répondu à mon problème que j'avais posté plus bas...

Pour le choix de l'imprimante le code VBA devrait correspondre à ça :

Cette macro liste les imprimantes, donne le choix et le nombre de pages à imprimer.

Sub Imprime()
Dim BookName As sting

BookName = Workbooks('Machin.xls')
If Not Printer_Choice(BookName) Then Workbooks(BookName).Sheet(1).PrintOut
copies:=1
End Sub

'Sélection imprimante pour impression
Function Printer_Choice(nBook As String) As Boolean
Const msgPart1 = ' page(s) à imprimer sur '
Const msgPart2 = 'Imprimante active :'
Const msgPart3 = 'Voulez-vous changer d'imprimante ?'
Dim Reply As Byte, Actual_Printer As String, nbPages As String

If Not nBook = '' Then
Workbooks(nBook).Activate
nbPages = ExecuteExcel4Macro('GET.DOCUMENT(50)') & msgPart1
End If
Actual_Printer = Application.ActivePrinter
Reply = MsgBox(nbPages & msgPart2 & vbLf & Actual_Printer & ' !' & vbLf &
vbLf & msgPart3 _
, 3 + 32 + 256, 'Info utilisateur')
If Reply = vbYes Then Application.Dialogs(xlDialogPrinterSetup).Show
If Reply = vbCancel Then Printer_Choice = True
End Function

Voila....
@++