Impression spéciale

[Aladin]

Bonjour le forum
J' ai une plage de céllule de A2 à M132 et deux macros (l' une qui donne un apercu et la deuxieme l' impression en noir et blanc).
Mon souci c' est d' établir un enchainement claire et précis dans le programme.
1-Apercu et Mise en mode paysage
2-Mise en forme pour impression sur feuille A3 (sans marge a gauche et à droite)
3-Choix de l' imprimante et lui specifier que la sortie se fera en A3
4-Toutes les infos doivent tenir sur une seule page

Merci d' avance pour toute aide qui sera le bienvenue
Aladin

 

[Aladin]

Re : Impression spéciale

Rebonsoir le forum
En cherchant sur le forum, j' ai trouve ce code que j' éssaye d' adapter pour une impression sur du A3 mais
Private Sub CommandButton2_Click()
ActiveSheet.PageSetup.PaperSize = xlPaperA3
ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveSheet.ChartObjects("Graphique 1").Select

ActiveSheet.PrintOut Copies:=1, Collate:=True
End Sub
La macro se bloque sur
ActiveSheet.PageSetup.PaperSize = xlPaperA3
Aladin

 

[Aladin]

Re : Impression spéciale

Rebonjour le forum
Concernant mon pb d' impression j' ai un usrform avec un bouton que j' ai paraméré afin de me faire una apercu d' impression mais j' ai quelques soucis.
-Apres lancement de l' apercu, L' apercu avant imperession s' ouvre le userform reste figé au milieu de l' écran et j' ai un blocage d' Excel. je suis obligé de le killer
Voici le code que j' ai fait
Application.ScreenUpdating = False

For i = 0 To LbFeuilles.ListCount - 1
If LbFeuilles.Selected(i) = True Then

Selection.CurrentRegion.Select
' qui sélectionne les cellules contigues de la feuille
ActiveSheet.PageSetup.PrintArea = "$A$2:$M$126"
ActiveSheet.PageSetup.Orientation = xlLandscape
ActiveSheet.PrintOut Preview:=True
ActiveSheet.PageSetup.PrintArea = Selection
ActiveWindow.Zoom = 100
Application.DisplayAlerts = False

Else
End If
Next i
Application.DisplayAlerts = True

Application.StatusBar = False

Application.ScreenUpdating = True
End Sub
Merci d' avance pour toute aide
Aladin

 

[chris]

Re : Impression spéciale

Bonjour

L'imprimante par défaut (ou sélectionnée ailleurs dans la macro) peut-elle faire du A3 ?

 

[Aladin]

Re : Impression spéciale

Bonjour Chris
L' imprimante par bdefault ne fait pas du A3, je dois selectionner une imprimante en reseau.
Aladin

 

[chris]

Re : Impression spéciale

Re
Il faut donc que la sélection d'imprimante soit faite avant d'imposer ce format sinon Excel ne veut pas.

 

[CB60]

Re : Impression spéciale

Bonjour
Il me semble que tu dois masquer ton USF avant l'aperçu de cette façon.
UserForm1.Hide

et lorsque tu ferme l'impression le relancer;
Userform1.show

 

[Aladin]

Re : Impression spéciale

Bonjour Chris et CB60 et le forum
J' ai résolu le pb du USF mais n' ai pas encore résolu ub pb qui me tient à coeur, la mise en page en format A3 appliquable a une feuille et un plage de céllule donné avec marge gauche te droite de 1 cm
Merci d' avoir répondu à mon post
Aladin

 

[CB60]

Re : Impression spéciale

Bonjour à tous
Difficile de voir ce qui cloche sans un petit bout de fichier.
L'usf tu l'a résolu comment?

 

[Aladin]

Re : Impression spéciale

Bonjour CB60 et le forum
J' ai résolu le pb du USF en mettant le UserfOrm1.Hide avant la ligne
ActiveSheet.PrintOut Preview:=True
Aladin

 

[CB60]

Re : Impression spéciale

re
essai d'adapter cette macro, avec ton USF, dans un premier temps met la dans un module standard et regarde si cela correspond à ton souhait.
Sub Macro6()
'
' Macro6 Macro
' Macro enregistrée le 19/08/2007 par Bruno
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup

.LeftMargin = Application.InchesToPoints(0.393700787401575)
.RightMargin = Application.InchesToPoints(0.393700787401575)
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA3
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
ActiveWindow.SelectedSheets.PrintPreview
End Sub



EDIT
En debut de macro pour l'imprimante
Application.ActivePrinter = "EPSON Stylus Photo RX500 sur Ne02:" ' nom de l'imprimante qui feras l'impression

A la place de cela:
For i = 0 To LbFeuilles.ListCount - 1
If LbFeuilles.Selected(i) = True Then

Selection.CurrentRegion.Select
' qui sélectionne les cellules contigues de la feuille
ActiveSheet.PageSetup.PrintArea = "$A$2:$M$126"
je mettrais:
For i = 0 To LbFeuilles.ListCount - 1
If LbFeuilles.Selected(i) = True Then
Range("a1").CurrentRegion.Select
ActiveSheet.PageSetup.PrintArea = ""

 

[Aladin]

Re : Impression spéciale

Rebonjour CB60
Merci pour ton post je testerai les modifs demain sur une imprimante qui sort le format A3 et te tiendrai au courant du résultat
Aladin