ExportAsFixedFormat

Le
MichD
Bonjour,

On m'a transmis un fichier et la méthode "ExportAsFixedFormat"
semble être limitée à 1 seule page de la feuille de calcul. Peut-elle
imprimer plus de pages si la feuille en contient davantage?

Si oui, comment procédez-vous?

P.S. Je sais, on peut utiliser la commande "imprimer" du menu fichier
mais ce n'est pas là la question.

L'aide sur MSDN n'est pas explicite sur le sujet.


ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nom, _
Quality:=xlQualityStandard, IncludeDocProperties:úlse, _
IgnorePrintAreas:úlse, from:=1,
To:¬tiveWindow.SelectedSheets.Count, OpenAfterPublish:=True


Merci.


MichD
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichD
Le #26403122
OK, le code devrait plutôt être comme ceci:
Le paramètre : To:=3 , ou le nombre de pages désirés
Ce paramètre est facultatif, en l'omettant, il imprime jusqu'à la
dernière page.
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:UsersmichdDocumentstoto" & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True,
IgnorePrintAreas:úlse, _
From:=1,to:=3, OpenAfterPublish:=True
Merci.
isabelle
Le #26403127
bonjour Denis,
ça serait plutot,
ActiveSheet.PageSetup.Pages.Count
au lieu de
ActiveWindow.SelectedSheets.Count,
isabelle
Le 2016-06-29 à 11:36, MichD a écrit :
Bonjour,
On m'a transmis un fichier et la méthode "ExportAsFixedFormat"
semble être limitée à 1 seule page de la feuille de calcul. Peut-elle
imprimer plus de pages si la feuille en contient davantage?
Si oui, comment procédez-vous?
P.S. Je sais, on peut utiliser la commande "imprimer" du menu fichier...
mais ce n'est pas là la question.
L'aide sur MSDN n'est pas explicite sur le sujet.
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nom, _
Quality:=xlQualityStandard, IncludeDocProperties:úlse, _
IgnorePrintAreas:úlse, from:=1, To:¬tiveWindow.SelectedSheets.Count,
OpenAfterPublish:=True
Merci.
MichD
LSteph
Le #26403129
Bonjour,
Ceci à l'air de le faire:
Sheets.Select 'une fois n'est pas coutume
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"G:Classeur4.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:úlse, OpenAfterPublish:úlse
'LSteph

Le mercredi 29 juin 2016 17:36:23 UTC+2, MichD a écrit :
Bonjour,
On m'a transmis un fichier et la méthode "ExportAsFixedFormat"
semble être limitée à 1 seule page de la feuille de calcul . Peut-elle
imprimer plus de pages si la feuille en contient davantage?
Si oui, comment procédez-vous?
P.S. Je sais, on peut utiliser la commande "imprimer" du menu fichier...
mais ce n'est pas là la question.
L'aide sur MSDN n'est pas explicite sur le sujet.
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nom, _
Quality:=xlQualityStandard, IncludeDocProperties:úlse, _
IgnorePrintAreas:úlse, from:=1,
To:¬tiveWindow.SelectedSheets.Count, OpenAfterPublish:=True
Merci.
MichD
MichD
Le #26403161
Bonjour à vous deux,
Je répète la petite explication émise plutôt :
OK, le code devrait plutôt être comme ceci:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:UsersmichdDocumentstoto" & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:úlse, _
From:=1,to:=3, OpenAfterPublish:=True
Le paramètre suivant To:=3 à la ligne précédente, permet de limiter le
nombre de pages à imprimer dans le fichier PDF au nombre inscrit, ou si
on omet ce paramètre (il est facultatif) la ligne de code imprime tout
le document dans le fichier PDF jusqu'à la toute dernière page.
Merci pour vos commentaires!
MichD
DanielCo
Le #26403169
Bonjour,
IgnorePrintAreas:=True ?
Cordialement.
Daniel
Bonjour à vous deux,
Je répète la petite explication émise plutôt :
OK, le code devrait plutôt être comme ceci:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:UsersmichdDocumentstoto" & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:úlse, _
From:=1,to:=3, OpenAfterPublish:=True
Le paramètre suivant To:=3 à la ligne précédente, permet de limiter
le nombre de pages à imprimer dans le fichier PDF au nombre inscrit,
ou si on omet ce paramètre (il est facultatif) la ligne de code
imprime tout le document dans le fichier PDF jusqu'à la toute
dernière page.
Merci pour vos commentaires!
MichD
MichD
Le #26403209
Le 30/06/16 à 03:29, DanielCo a écrit :
Bonjour,
IgnorePrintAreas:=True ?
Cordialement.
Daniel

Bonjour,
OUI, car seule une partie de la feuille doit être imprimée.
Cette section est définie par la propriété "PrintArea"de "PageSetup"
dans la procédure.
MichD
DanielCo
Le #26403214
Le 30/06/16 à 03:29, DanielCo a écrit :
Bonjour,
IgnorePrintAreas:=True ?
Cordialement.
Daniel

Bonjour,
OUI, car seule une partie de la feuille doit être imprimée.
Cette section est définie par la propriété "PrintArea"de "PageSetup"
dans la procédure.
MichD

J'enregistre bien le nombre de feuilles sélectionnées
(ActiveWindow.SelectedSheets.Count).
Daniel
MichD
Le #26403375
J'enregistre bien le nombre de feuilles sélectionnées
(ActiveWindow.SelectedSheets.Count).
Daniel

C'est justement où le bât blesse. En supposant que l'usager a 2 feuilles
de calcul dans son classeur et que chaque feuille contient plusieurs
pages, lorsque ce dernier utilise la propriété "To" comme ceci
to:¬tiveWindow.SelectedSheets.Count de la méthode
"ExportAsFixedFormat",le nombre de pages imprimé dans le fichier "PDF"
est de 2 et non le nombre total de pages que devrait contenir le fichier
"PDF". En ne définissant pas ce paramètre, toutes les pages des 2
feuilles sont incluses dans le fichier "PDF", ce que voulait l'usager!
MichD
isabelle
Le #26403391
bonjour Denis,
si PDFCreator est installé ou autre, une solution serait d'imprimer les onglets
Sub Impression_PDFCreator()
Dim I As Integer
Dim MonImprimante As String
Dim Nom As String
MonImprimante = ActivePrinter 'récupérer imprimante active
On Error Resume Next
For I = 0 To 9
Nom = "PDFCreator sur ne0" & I & ":"
Application.ActivePrinter = Nom
If UCase(ActivePrinter) = UCase(Nom) Then Exit For
Next I
On Error GoTo 0
If UCase(ActivePrinter) = UCase(MonImprimante) Then
MsgBox "Imprimante non trouvée" & vbCr & Nom, Title:="Impression annulée"
Else
Sheets.PrintOut
ActivePrinter = MonImprimante 'remettre imprimante active
End If
End Sub
isabelle
Le 2016-07-03 à 14:56, MichD a écrit :
J'enregistre bien le nombre de feuilles sélectionnées
(ActiveWindow.SelectedSheets.Count).
Daniel

C'est justement où le bât blesse. En supposant que l'usager a 2 feuilles de
calcul dans son classeur et que chaque feuille contient plusieurs pages, lorsque
ce dernier utilise la propriété "To" comme ceci
to:¬tiveWindow.SelectedSheets.Count de la méthode "ExportAsFixedFormat",le
nombre de pages imprimé dans le fichier "PDF" est de 2 et non le nombre total de
pages que devrait contenir le fichier "PDF". En ne définissant pas ce paramètre,
toutes les pages des 2 feuilles sont incluses dans le fichier "PDF", ce que
voulait l'usager!
MichD
LSteph
Le #26403404
Bonjour,
L'un de vous a-t-il testé le code que j'avais proposé.
Il me semble que cela mets toutes les pages dans le pdf quoiqu'il arrive...
Cordialement.
--
LSteph

Le lundi 4 juillet 2016 03:25:52 UTC+2, isabelle a écrit :
bonjour Denis,
si PDFCreator est installé ou autre, une solution serait d'imprimer les onglets
Sub Impression_PDFCreator()
Dim I As Integer
Dim MonImprimante As String
Dim Nom As String
MonImprimante = ActivePrinter 'récupérer imprimante acti ve
On Error Resume Next
For I = 0 To 9
Nom = "PDFCreator sur ne0" & I & ":"
Application.ActivePrinter = Nom
If UCase(ActivePrinter) = UCase(Nom) Then Exit For
Next I
On Error GoTo 0
If UCase(ActivePrinter) = UCase(MonImprimante) Then
MsgBox "Imprimante non trouvée" & vbCr & Nom, Title:="Impress ion annulée"
Else
Sheets.PrintOut
ActivePrinter = MonImprimante 'remettre imprimante active
End If
End Sub
isabelle
Le 2016-07-03 à 14:56, MichD a écrit :
J'enregistre bien le nombre de feuilles sélectionnées
(ActiveWindow.SelectedSheets.Count).
Daniel

C'est justement où le bât blesse. En supposant que l'usager a 2 feuilles de
calcul dans son classeur et que chaque feuille contient plusieurs pages , lorsque
ce dernier utilise la propriété "To" comme ceci
to:¬tiveWindow.SelectedSheets.Count de la méthode "ExportAsFix edFormat",le
nombre de pages imprimé dans le fichier "PDF" est de 2 et non le n ombre total de
pages que devrait contenir le fichier "PDF". En ne définissant pas ce paramètre,
toutes les pages des 2 feuilles sont incluses dans le fichier "PDF", ce que
voulait l'usager!
MichD
Publicité
Poster une réponse
Anonyme