dg62
XLDnaute Barbatruc
Bonjour le Forum,
RESOLU UNE HISTOIRE DE GUILLEMETS
Mon problème :
libel est une variable qui reprend le nombre d'impressions par rapport au total demandé ( 2 de 4) par exemple.
dans la ligne .Leftfooter = "&""" & police & ",normal""" & "&" & taille & libel, libel est tronqué ( de 3) mais affiché dans la bonne taille
dans .LeftFooter = libel, libel n'est pas tronqué (2 de 2) mais ne prend pas en compte la police et la taille.
Avez-vous une explication ?
pourquoi la définition de la police et taille n'est pas reprise par défaut sur la 2eme ligne ?
Merci
RESOLU UNE HISTOIRE DE GUILLEMETS
Mon problème :
libel est une variable qui reprend le nombre d'impressions par rapport au total demandé ( 2 de 4) par exemple.
dans la ligne .Leftfooter = "&""" & police & ",normal""" & "&" & taille & libel, libel est tronqué ( de 3) mais affiché dans la bonne taille
dans .LeftFooter = libel, libel n'est pas tronqué (2 de 2) mais ne prend pas en compte la police et la taille.
Avez-vous une explication ?
pourquoi la définition de la police et taille n'est pas reprise par défaut sur la 2eme ligne ?
Merci
VB:
Sub Imprimer()
Dim n As Integer
Dim libel As String
Dim police As String
Dim taille As String
Dim pge As Integer
'détermination police et taille
police = "Arial"
taille = 1
n = Application.InputBox("Nombre de copies :", "Imprimer", 1, , , , , Type:=1)
Application.EnableEvents = False
With ActiveSheet
For pge = 1 To Val(n)
libel = " " & pge & " de " & n
MsgBox (libel)
With .PageSetup
.Leftfooter = "&""" & police & ",normal""" & "&" & taille & libel
.LeftFooter = libel
End With
.PrintPreview
'.PrintOut
Next
End With
Application.EnableEvents = True
End Sub
Dernière édition: