VBA - Impression

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

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

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

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

Bonne suite