Discussion :

[Balboa24]

Bonjour,

Je débute en VB et j'aimerais savoir quelle est la syntaxe pour imprimer sur l'imprimante par défaut (ActivePrinter) du PC qui reçoit ce fichier Powerpoint

Merci d'avance

Voilà le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Macro1()
 
    With ActivePresentation.PrintOptions
        .RangeType = ppPrintSlideRange
        With .Ranges
            .ClearAll
            .Add Start:=1, End:=1
        End With
        .NumberOfCopies = 1
        .Collate = msoTrue
        .OutputType = ppPrintOutputSlides
        .PrintHiddenSlides = msoTrue
        .PrintColorType = ppPrintBlackAndWhite
        .FitToPage = msoFalse
        .FrameSlides = msoFalse
        .ActivePrinter = "HP Photosmart 2570 series"
    End With
    ActivePresentation.PrintOut
End Sub

[Didier Gonard]

Bonjour,

Sans aprofondir, je dirai que si tu supprimes la ligne ActivePrinter, tu adresseras justement l'imprimante par défaut de la machine

cordialement,

Didier

[Gabout]

Bonjour et bienvenue sur le forum,

A tester, je ne suis pas spécialiste de PowerPoint : si tu n'as pas d'option particulière

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Macro1()
    ActivePresentation.PrintOut
End Sub

A+