Bonjour a toutes et tous,
j'ai actuellement un programme avec macro qui me permet de creer plusieurs documents sur les feuille 1, feuille 2...etc.
Je souhaite intégrer un bouton "enregistrer sous pdf" et après avoir parcouru le forum, je dois dire que je nage un peu...
Il y a déjà un bouton qui me permet d'imprimer la feuille 1 par exemple et je me disais que je pouvais partir de la, mais ce fut un échec.
Alors je me tourne vers vous pour m'aider.
Au cas ou voici le code pour imprimer :
Private Sub CommandButton5_Click()
Dim j As Integer
For j = 0 To listclient.ListCount - 1
If listclient.Selected(j) = True Then
fact = Val((listclient.List(j, 1))): factt = j + 1: nfac = fact - 1
imprim
Feuil4.PrintOut From:=1, To:=retour
End If
Next
End Sub
Merci a vous.
j'ai actuellement un programme avec macro qui me permet de creer plusieurs documents sur les feuille 1, feuille 2...etc.
Je souhaite intégrer un bouton "enregistrer sous pdf" et après avoir parcouru le forum, je dois dire que je nage un peu...
Il y a déjà un bouton qui me permet d'imprimer la feuille 1 par exemple et je me disais que je pouvais partir de la, mais ce fut un échec.
Alors je me tourne vers vous pour m'aider.
Au cas ou voici le code pour imprimer :
Private Sub CommandButton5_Click()
Dim j As Integer
For j = 0 To listclient.ListCount - 1
If listclient.Selected(j) = True Then
fact = Val((listclient.List(j, 1))): factt = j + 1: nfac = fact - 1
imprim
Feuil4.PrintOut From:=1, To:=retour
End If
Next
End Sub
Merci a vous.
