Discussion :

[law56100]

Bonjour

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

Code :

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

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

Code :

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

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

[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

[law56100]

fx=impression()

mais j'ai essayé dans le thisworkbook:

Code :

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

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?

[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

[Pierre Fauconnier]

Autre question bête: Tu as quelque chose à imprimer dans ta feuille?

[ucfoutu]

Bonsoir,

et tu as bien sûr vérifié l'état du spooler d'impression ?