Pb PageSetup Erreur 1004

[Soviet]

Bonsoir le forum,


J'essaie de faire une petite macro pour paramètrer une mise en page en A3 Paysage et une impression.

Premier PB


J'ai pris mes petits bouquins et je trouve mes propiétés etc etc...
Sauf que
Mon code plante sur cette ligne

Activesheet.PageSetup.PaperSize = xlPaperA3

et me retourne une joyeuse 'erreur d'éxécution '1004' ' en me disant 'impossible de définir la propriété papersize de la classe pagesetup'

Deuxième PB

De plus je voudrais faire une macro pour créer une impression sur une imprimante spécifique, mais je ne sais pas comment imposer une imprimante


Si quelqu'un peut me filer un coup de pouce se serait 'achement sympa!

A bientot

 

[michel_m]

Bonsoir,

l'imprimante reliée à ta bécane peut elle imprimer en A3 ?

Le choix de l'imprimante s'effectue par la commande imprimer ou par la ligne (ci dessous vers pdf):

Application.ActivePrinter = 'PDFCreator sur PDFCreator:'
ActiveWindow.SelectedSheets.PrintOut ActivePrinter:= _
'PDFCreator sur PDFCreator:'

il faut bien sûr que lze driver de l'imprimante soit accessible de ta bécane

Bonne soirée
Michel

 

[galopin01]

Bonsoir,
Pour le deuxième pb tu peux toujours coller ça dans ton ThisWorkBook :

Private Sub Workbook_Open()
If Application.ActivePrinter <> 'HP Laserjet 1100A (LOCAL) sur LPT1:' Then ImpChange
End Sub

Sub ImpChange(): Application.Dialogs(xlDialogPrinterSetup).Show: End Sub

ou encore dans un module quelconque :

Private Sub Test()
If Application.ActivePrinter <> 'HP Laserjet 1100A (LOCAL) sur LPT1:' Then ImpChange
End Sub

Sub ImpChange(): Application.Dialogs(xlDialogPrinterSetup).Show: End Sub

0k ?

 

[soviet]

Désolé d'avoir été si long à répondre

Oui effectivement c'est ok.

Le pb que j'avais était que j'avais fait une faute de frappe dans le nom de mon imprimante donc forcément ça n'allait pas. Ya des jours je vous jure...

Merci encore