[E-07] problème d'impression

Version imprimable

06/03/2009, 10h55
law56100

[E-07] problème d'impression
Bonjour

Il y a quelque chose qui m'echappe?
C'es à dire, je vroudrai imprimer (voici mes fonctions).
Code:

1 2 3 4 Public Function Impression() As Variant ActiveSheet.PrintOut End Function
Code:

1 2 3 4 Public Function Impression2() As Variant Sheets("Feuil1").PrintOut End Function
Pourquoi cela ne fonctionne pas?
Il me manque ou pas une déclaration?
ou alors les fonction sheets doivent être utiliser a un endroits précis comme dans le thisworkbook?

cordialement law56100
06/03/2009, 11h49
pgz

Bonjour.

Des fonctions qui ne renvoient rien, pourraient aussi bien être des sub.
Tu les appelles comment tes fonctions et il se passe quoi?
¨
Cordialement,
¨
PGZ

fx=impression()

mais j'ai essayé dans le thisworkbook:

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
    Sheets.PrintOut
 
    On Error Resume Next
        ConnCACAO.Close
        Set ConnCACAO = Nothing
    On Error GoTo 0
 
End Sub

et cela ne fonctionne pas?

06/03/2009, 21h32
pgz

Si je comprends bien, tu n'as pas d'erreur mais cela n'imprime pas. C'est cela?
Question bête : tu as une imprimante en service et connectée?

PGZ
06/03/2009, 21h37
Pierre Fauconnier

Autre question bête: Tu as quelque chose à imprimer dans ta feuille?
06/03/2009, 22h46
ucfoutu

Bonsoir,

et tu as bien sûr vérifié l'état du spooler d'impression ?
09/03/2009, 09h23
law56100
Avec le code ci-dessus j'ai des problèmes d'erreur en simulation mais pas en compilation.

J'ai bien une imprimante connecté et j'ai bien quelque chose a inprimer.
Cela fonctionne avec ceci
Code:

1 2 3 4 5 6 If Not Outil.FichierVide Then On Error Resume Next ThisWorkbook.PrintOut On Error GoTo 0 End If
09/03/2009, 09h29
ucfoutu
Citation:
Envoyé par law56100

J'ai bien une imprimante connecté et j'ai bien quelque chose a inprimer.
Cela fonctionne avec ceci

Code:

1 2 3 4 5 6 If Not Outil.FichierVide Then On Error Resume Next ThisWorkbook.PrintOut On Error GoTo 0 End If
Si c'est là tout ton code, ton "On Error Resume Next" ne change absolument rien car :
- soit ThisWorkBook.PrintOut déclenche une erreur, soit il n'en déclenche pas
- si erreur ===>> pas d'impression
- si pas erreur ===>> impression

Et ce n'est certes pas ton "On Error ..." qui va permettre l'impression !
Tout laisse entendre que tu avais tout simplement ton sopooler dans un état tel qu'il ne permettait pas l'impression.
09/03/2009, 14h58
pgz

Bonjour.

Petite précision de logique :
(Erreur ==> Non Impression) <==> (Impression ==> Non Erreur)

;)