Macro impression en pdf
Bonsoir,
Je souhaitais créer une macro pour imprimer automatiquement en pdf via PDF creator.
Comme je suis débutante de chez débutante, j'ai enregistré une macro automatique. Or, apparemment, elle ne prend pas en compte l'imprimante pdf creator (sauf si elle a été sélectionnée préalablement). De plus je souhaiterais qu'il enregistre le PDF sous un nom que je copie en I9. Voici ce que ça donne mais qui ne "marche pas" puisqu'il faut que je sélectionne l'imprimante préalablement et que je saisisse le nom du fichier pdf :
Sub imprimer()
'
' imprimer Macro
'
'
Range("I9").Select
Selection.Copy
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End Sub
Comment améliorer cette macro pour que cela soit vraiment automatique ?
Merci par avance
Cordialement
Ciboulette
Bonjour,
essayer ce code qui fonctionne chez moi avec pdfcreator 1.7.3
Sub testImp()
Application.ScreenUpdating = False
Dim NbPages As Integer
Dim i As Integer, PageFeuille As Integer
Dim PageTot As Integer
Dim P1, P2, P3, P4 As Integer
For i = 1 To Sheets.Count
Sheets(i).Activate
NbPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
PageTot = PageTot + NbPages
Select Case i
Case 1
P1 = "P" & i
Case 2
P2 = "P" & i
Case 3
P3 = "P" & i
Case 4
P4 = "P" & i
End Select
Next i
For Sh = 1 To Sheets.Count
Sheets(Sh).Select
With ActiveSheet.PageSetup
' .RightFooter = "Page &P de &N"
If Sh > 1 Then
.RightFooter = "Page &P+p1 " & " / " & PageTot
'.RightFooter = "Page &P+1 " & " / " & PageTot
Else
.RightFooter = "Page&P " & PageTot
End If
End With
Next Sh
Application.ActivePrinter = "PDFCreator sur Ne00:"
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,""PDFCreator sur Ne00:"",,TRUE,,FALSE)"
End Sub
Bonsoir,
Merci, mais ça ne fonctionne pas. Je ne suis pas assez douée en VBA pour pouvoir modifier.
Le problème se produit au niveau d'une boucle et semble concerner un nombre de pages.
NbPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
PageTot = PageTot + NbPages
Select Case i
Case 1
P1 = "P" & i
Case 2
P2 = "P" & i
Case 3
P3 = "P" & i
Case 4
P4 = "P" & i
End Select
Next i
Or, je n'en n'ai qu'une. Je ne sais pas adapter cette macro à mon cas. Je suis super super débutante !!!!!
Merci quand même.
Bonne soirée
Ciboulette
re,
tu devrais tout d'abord délimiter ta zone d'impression par le menu qui diffère suivant les versions excel; ensuite tu peux lancer cette macro, je viens de tester sur une zone délimité et un seul onglet et ça fonctionne
P.
Bonsoir,
Ma zone d'impression est bien définie via le menu. Mais le code d'erreur est celui-ci :
erreur d'execution '13' incompatibilite de type
Un problème de définition de variable ?
Ai-je vraiment besoin de toutes ces boucles qui concernent l'impression de plusieurs pages ?
Bonne soirée
Ciboulette
Tu peux faire une copie écran pour montrer où ça s'arrête
Les boucles ne ralentissent en rien l'impression vers un PDF ...
P.
re,
pour tester, tu peux mettre une apostrophe du select case jusque end select
Bonjour,
J'ai enfin compris que la plupart des commandes de ta macro ne m'étaient pas utiles.
Il a suffit que je recopie
Application.ActivePrinter = "PDFCreator sur Ne00:"
pour que ça fonctionne !!!
Merci et bon après midi
Ciboulette