module

[VINCEGR]

bonjour le forum,
voici mon souci sur le fichier que je vous joins.
le module vba me créer ma facture suivant un modèle mais je souhaiterais l'avoir sur une seule page et non au format standard
Comment modifié le code pour conserver un format sur 1 page du résultat?
j ai modifié fichier pour macro ok
Merci d'avance
VinceGR🙂

 

[VINCEGR]

Re : module

fgfgf


fgsdfgs

 

[phlaurent55]

Re : module

Bonjour vincegr,

n'ayant pas pu essayer --------> ta macro se plante, je te propose la solution suivante:
il suffit dans ton code de définir la "zone" à imprimer et faire en sorte qu'elle tienne sur une feuille

à+
Philippe

 

[VINCEGR]

Re : module

bonjour phlaurent55,
la macro se plante car facture existe deja si tu supprime onglet avec "101-426" la macro fonctionnera.
Comment définir zone dans code?
merci
VinceGR

 

[phlaurent55]

Re : module

Re,

ce code sélectionnera la zone à imprimer
et lancera l'imprimante

Sub Macro1()
Application.ScreenUpdating = False
    Range("A1:H" & Range("A65535").End(xlUp).Row).Select
    Application.CutCopyMode = False
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.787401575)
        .RightMargin = Application.InchesToPoints(0.787401575)
        .TopMargin = Application.InchesToPoints(0.984251969)
        .BottomMargin = Application.InchesToPoints(0.984251969)
        .HeaderMargin = Application.InchesToPoints(0.4921259845)
        .FooterMargin = Application.InchesToPoints(0.4921259845)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = -2
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .PrintErrors = xlPrintErrorsDisplayed
    End With
    Selection.PrintOut Copies:=1, Collate:=True
Range("A1").Select
Application.ScreenUpdating = True
End Sub

c'est ce que donne l'enregistreur de macro...................... reste à faire le nettoyage

à+
Philippe

 

[VINCEGR]

Re : module

Bonjour philippe,
2 questions :
1) est-il possible de compléter ma macro existante avec la mise en page et impression automatique au lieu de relancer une nouvelle macro
2) est-il possible de diminuer la largeur des bordures soit 1 cm à droite et 1 cm à gauche.

Merci
@+
VinceGR