Discussion :

[totoche]

Bonjour,
Lorsque l'utilisateur clique sur le bouton imprimer de la boite de dialogue l'imprimante n'imprime pas.

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
 
Public Sub Imprimer(ByVal srcFacture As String)
Dim BeginPage, EndPage, NumCopies, i
 
  With frmListeFact
  ' Récupère les valeurs définies par l'utilisateur dans la boîte
  ' de dialogue
  BeginPage = .Cdlg.FromPage
  EndPage = .Cdlg.ToPage
  NumCopies = .Cdlg.Copies
  .Cdlg.FileName = srcFacture
  ' Affiche la boîte de dialogue Impression
  .Cdlg.ShowPrinter
End With
End Sub

Merci de votre aide

[SfJ5Rpw8]

Je suppose que ton Cdlg est un contrôle CommonDialog ...
la méthode showprinter ... ne permet pas d'imprimer .. mais seulement de donner à l'utilisateur la possibilité de sélectionner une imprimante (et divers paramètres d'impression ...)

Il te manque donc le code d'impression ... qui dépends surement de ce que tu veux imprimer

[totoche]

Bonjour et merci,
je veux simplement imprimer le fichier (.xls) transmis en parametre (ByVal srcFacture As String), je pensais que le FileName suffisait ,
Peux tu m'en dire plus sur

manque donc le code d'impression ... qui dépends surement de ce que tu veux imprimer

,dans mon cas ou je tente d'imprimer mon fichier excel
(printout????)
Merci

[Delbeke]

Le mieux est d'appeler excel pour qu'il imprime lui même.

[totoche]

bonjour Delbeke

Le mieux est d'appeler excel pour qu'il imprime lui même.

Comment est ce possible sans ouvrir le document, et en donnant la possiblité a l'utilisateur de choisir l'imprimante et le nombre de copies ?
merci