[VBA: définition de la zone d'impression] [Résolu]

Réponse 2 / 9

Kobaya Messages postés 282 Date d'inscription Statut Membre Dernière intervention 214

salut,

ActiveSheet.PageSetup.PrintArea = "$A$83:$E$100"

en utilisant des variables, tu dois pouvoir facilement modifier la chaîne "$A$83:$E$100"

Réponse 3 / 9

Kobaya Messages postés 282 Date d'inscription Statut Membre Dernière intervention 214

voici la fonction Adresse() qui renvoie une colonne sous forme de lettre avec comme paramètre un numéro de colonne (5 renverra E, 27 renverra AA, etc...) :

Private Function Adresse(Colonne As Integer) As String
'************************************************
' renvoie la référence de colonne au format $AA *
'************************************************
If Colonne < 257 Then
If Colonne > 26 Then
' le IIf() traite le cas particulier des Z
Adresse = "$" & Chr(64 + (Colonne \ 26) + IIf(Colonne Mod 26 = 0, -1, 0))
Else
Adresse = "$"
End If

' le IIf() traite le cas particulier des Z
Adresse = Adresse & Chr(64 + IIf(Colonne Mod 26 = 0, 26, 0) + (Colonne Mod 26))
Else
Adresse = "Erreur : numéro de colonne > 256"
End If
End Function

Sub ZoneImp()
Dim intColMin As Integer, intColMax As Integer
Dim intLinMin As Integer, intLinMax As Integer

intColMin = 1
intColMax = 12
intLinMin = 2
intLin = 25

ActiveSheet.PageSetup.PrintArea = Adresse(inColMin) & intLinMin & ":" & Adresse(intColMax) & intLinMax
' les $ ne sont pas indispensables

End Sub

j'ai tapé ce code directement ici, sans le tester, mais ça devrait être bon.

P-Yves

Slt!

Ca marche nikel, merci beaucoup!

A+

Mlika

Bonjour,
nous devons faire un programme sur VBA et nous voudrions savoir quel langage VBA placer derrière le bouton "imprimer". Si on a une imprimante ou deux ou plus ? S'il est possible d'avoir un aperçu avant impression et de règler les marges et tout le tralala !

Merci.

Réponse 4 / 9

exceljl

ou

Sub zone_impression()
'
' zone d'impression & aperçu

With Range("A:H")
Worksheets("command").Activate
ActiveSheet.PageSetup.PrintArea = Range("A1:H" & .Find("*", .Item(1), , , , xlPrevious).Row).Address
End With
ActiveWindow.SelectedSheets.PrintPreview
End Sub

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 9

Sarah738

Bonjour P.Yves (et les autres),
Je viens d'avoir cette problématique. J'ai trouvé comment faire (bon j'espère que depuis votre message, vous avez trouvé la solution).
Pour tous ceux qui ont ce problème voici les lignes pour définir une zone d'impression comprenant les colonnes de A à J et les lignes de 1 jusqu'à la dernière contenant quelque chose (tout ça sur la feuille nommée "Etiquettes") :

Dans la déclaration des variables j'entre :

Dim IL As Long ' l'indice de la dernière ligne utilisée

Ensuite :

IL = Sheets("Etiquettes").Range("A" & Application.Rows.Count).End(xlUp).Row 'Recherche de la dernière ligne

Sheets("Etiquettes").PageSetup.PrintArea = "A1:J" & IL ' Définition de la zone d'impression avec variable IL

Réponse 6 / 9

P-Yves

Slt,

C'est justement ça mon problème!!
J'arrive pas à introduire une variable dans la synthaxe de:
"$A$83:$E$100"

Tu vois comment je peux faire?

P-Yves

Réponse 7 / 9

toto

Juste pour dire que ton code me sauve pour ainsi dire la vie ou du moins la fin de mon stage

Kobaya Messages postés 282 Date d'inscription Statut Membre Dernière intervention 214

:-)

Réponse 8 / 9

alainbay Messages postés 3 Date d'inscription Statut Membre Dernière intervention

bonjour je voudrais creer un bouton impression
j ai definis que chaque ligne est a imprimer séparement sur pages différentes
le nombre de feuille a imprimer est a definir cela peut etre 5,10,12,20 juste a définir avant l'impression
merci d'avance

Réponse 9 / 9

Mlika

Bonjour,
nous devons faire un programme sur VBA et nous voudrions savoir quel langage VBA placer derrière le bouton "imprimer". Si on a une imprimante ou deux ou plus ? S'il est possible d'avoir un aperçu avant impression et de règler les marges et tout le tralala !

[VBA: définition de la zone d'impression]

9 réponses

Votre réponse

Discussions similaires