VBA - Impression Fermé

Question

Bonjour tout le monde, 

Je souhaiterais pouvoir imprimer en vba. Voici le code, trouvé sur le net, que j'utilise pour la mise en page :

    Application.PrintCommunication = False

    Je règle les modifs puis

    Application.PrintCommunication = True
    
Or on me dit qu'il y a un problème avec l'application ou l'objet ici :
Application.PrintCommunication = True

Je ne comprends pas que je puisse mettre =False mais pas =True.

Pourriez-vous m'aider svp?

Merci d'avance.

Configuration: Windows XP / Internet Explorer 8.0

f894009 · Answer

Bonjour,
Suivez ce lien
https://docs.microsoft.com/en-us/samples/browse/?redirectedfrom=MSDN-samples

Bonne suite

alena20 · Answer

Bonjour,

Voici le code qui j'ai trouvé et qui me semble logique. Cette proprieté marche que avec Excel 2010. J'ai le testé en Excel 2010 et ca marche. Est-ce que c'est possible que vous utilisez une version inferieure d'Excel ? Sinon vous pouvez passer directement en PageSetup, ca prendra un peu plus de temps pour le traitement. Dans tous les cas voici le code:


Sub TryToPrint2()

Application.PrintCommunication = False

With ActiveSheet.PageSetup

 .LeftMargin = Application.InchesToPoints(0.5)
 .RightMargin = Application.InchesToPoints(0.75)
 .TopMargin = Application.InchesToPoints(1.5)
 .BottomMargin = Application.InchesToPoints(1)
 .HeaderMargin = Application.InchesToPoints(0.5)
 .FooterMargin = Application.InchesToPoints(0.5)
.Orientation = xlLandscape

End With

Application.PrintCommunication = True

ActiveSheet.PrintOut

End Sub


J'espere que j'ai pu vous aider.
Cord,
Alena

BARET-Ch · Answer

Je pense que ton problème provient des paramètres locaux de la machine. J'ai rencontré le problème avec un micro réglé à la française et une multi-zone d'impression
Pour l'envoyer sous VBA, il faut utiliser un format standard (avec virgule comme séparateur de liste
ActiveSheet.PageSetup.PrintArea = "$A$3:$H$34,$J$3:$Q$34"
Mais quand on le relit, il revient avec un format local (avec un point virgule comme séparateur
A$=ActiveSheet.PageSetup.PrintArea : "$A$3:$H$34;$J$3:$Q$34"

Il me semble que lors de la réactivation de la communication avec le driver d'imprimante, il y a un échange avec renvoi de la zone d'impression pour calcul du coeficient de reduction. Si le format n'est pas correct cela plante

Ma solution

J'ai vidé la zone d'impression
ActiveSheet.PageSetup.PrintArea = ""

J'ai envoyé le Pagesetup. Cela ne semble pas le gêner de ne pas avoir de zone d'impression

Application.PrintCommunication = False
With ActiveSheet.PageSetup
 .LeftMargin = Application.InchesToPoints(0.5)
 .RightMargin = Application.InchesToPoints(0.75)
 .TopMargin = Application.InchesToPoints(1.5)
 .BottomMargin = Application.InchesToPoints(1)
 .HeaderMargin = Application.InchesToPoints(0.5)
 .FooterMargin = Application.InchesToPoints(0.5)
.Orientation = xlLandscape
End With
Application.PrintCommunication = True

Puis j'ai rétabli la zone d'impression
ActiveSheet.PageSetup.PrintArea = "$A$3:$H$34,$J$3:$Q$34"

Chez moi cela fonctionne

Fybras · Answer

Bonjour,
J'ai eu le même problème avec un script écrit sur Excel 2010 lorsque je l'ai exécuté sur Excel 2013.
Ma solution :
Pour résoudre mon problème j'ai simplement retirer la ligne ".PrintQuality = 600"
Il semblerait que l'erreur "la méthode printcommunication a échoué" survient lorsqu'une des lignes du "PageSetup" est en erreur....en l'occurence ".PrintQuality" que j'ai retiré et tout est rentré dans l'ordre

VBA - Impression

4 réponses

Discussions similaires