[VB6]imprimer powerpoint

Version imprimable

16/05/2006, 23h00
cisnake

[VB6]imprimer powerpoint
salut
je voudrais automatiser l'impression d'un fichier powerpoint pour cela j'utilise le code suivant
Code:

1 2 3 4 5 6 Dim power As New PowerPoint.Application Dim file As PowerPoint.Presentations Set file = power.Presentations.Open("C:\test.ppt") power.ActivePresentation.PrintOut power.Quit
mais ca ne marche pas
j'aimerais bien avoir votre aide surtout de la doc si il y en a
merci

Voila pour imprimer a partir de VB mais ca doit etre compatible...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Private Sub PrintPowerPointPresentation(strFilePath As String)
 
' Run Microsoft PowerPoint as COM-server
  On Error Resume Next
  Dim App As Object
  Dim Presentation As Object
  Dim nSlides As Long
 
 
   strFilePath = "C:\test.ppt"
  Set App = CreateObject("PowerPoint.Application")
 
' Open presentation from file
  Err = 0 ' Clear GetLastError() value
  Set Presentation = App.Presentations.Open(strFilePath, 1, 1, 0)
 
  If Err = 0 Then
 
  ' Get number of slides in the presentation
    nSlides = Presentation.Slides.Count
 
    If nSlides > 0 Then
 
    ' Print all slides from the presentation
      Presentation.PrintOptions.PrintInBackground = 0
      Call Presentation.PrintOut(0, nSlides, 0, 1, 0)
 
    End If
 
  ' Close the presentation
    Call Presentation.Close
    Set Presentation = Nothing
 
  End If
 
' Close Microsoft PowerPoint
  Call App.Quit
  Set App = Nothing
 
End Sub

17/05/2006, 00h16
cisnake

slt
je l'ai testé mais ca marche pas peut etre comme tu as dis k'il n'y a pas de compatibilté
moi j'aimerais bien si on corrige mon application je pense k'l faut juste connaitre les methodes et les classes de powerpoint dans VB
j'ai cherché mais j'ai pas trouvé;)

kesky ne marche pas, je viens de l'essayer ss pwtpnt et ca a l'air d'aller...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Dim power As New PowerPoint.Application
Dim file As PowerPoint.Presentations
Set file = power.Presentations.Open("C:\test.ppt")
 
  ' Get number of slides in the presentation
    nSlides = file.Slides.Count
 
    If nSlides > 0 Then
 
    ' Print all slides from the presentation
      file.PrintOptions.PrintInBackground = 0
      Call file.PrintOut(0, nSlides, 0, 1, 0)
 
    End If
 
  ' Close the presentation
    Call file.Close
 
    Set Presentation = Nothing
    power.Quit

17/05/2006, 10h52
cisnake
bonjour
ca marche pas au niveau de la ligne suivante
Code:

1 2 nSlides = file.Slides.Count
membre ou methode introuvable
il ne reconnait pas "Slides"

Hello,

Le code de Vesta fonctionne sans pb. Suffit que tu laisses le temps au système d'ouvrir ton fichier avant de compter les diapos. J'ai juste ajouté DoEvents là où il fallait qu'il soit

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Sub PrintPowerPointPresentation()
Dim App As Object
Dim Presentation As Object
Dim nSlides As Long
    strFilePath = "c:\test.ppt"
    Set App = CreateObject("PowerPoint.Application")
 
    ' Open presentation from file
      Set Presentation = App.Presentations.Open(strFilePath, 1, 1, 0)
      DoEvents
      If Err = 0 Then
 
        ' Get number of slides in the presentation
          nSlides = Presentation.Slides.Count
          If nSlides > 0 Then
 
             ' Print all slides from the presentation
               Presentation.PrintOptions.PrintInBackground = 0
               Call Presentation.PrintOut(1, nSlides)
               DoEvents
          End If
 
          ' Close the presentation
          Call Presentation.Close
          Set Presentation = Nothing
          DoEvents
      End If
 
    ' Close Microsoft PowerPoint
      Call App.Quit
      Set App = Nothing
End Sub

Tu dis

A+

17/05/2006, 11h54
Vesta

Si malgréz tout ca devait encore poser probleme fais nous signe...
17/05/2006, 12h00
cisnake

merci de votre aide
meme si j'aurai souhaité avoir un lien vers une documentation :D
mais bon le code marche 5/5
@+
17/05/2006, 12h07
Vesta

Le meilleur lien que tu puisse trouver c'est l'aide :p :f1:

Ou aller sur MSDN France la tu trouvera qqch intéressantes surement...

Enin faut chercher quoi...
17/05/2006, 12h10
ouskel'n'or

Pour la doc, et à part la recherche sur le forum, la FAQ et les tutos, j'ai :f1:

:lol:

Edit : Grillé par Vesta :aie:
17/05/2006, 12h11
cisnake

c'est noté ;)