ShowPrinter FileName excel

Version imprimable

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

Code:

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

20/02/2008, 20h29
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 ;)
21/02/2008, 13h47
totoche

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

Citation:

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
21/02/2008, 14h08
Delbeke

Le mieux est d'appeler excel pour qu'il imprime lui même.
21/02/2008, 16h47
totoche

bonjour Delbeke

Citation:

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