- Comment sauvegader le nom de l'imprimante par defaut actuelle?
Dim ImpSAV As String
- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
Dim ImpPdf As String
- Comment remettre l'ancienne inprimante par defaut?
Application.ActivePrinter = ImpSAV
Bonjour à Tous,
J'ai un formulaire dans lequel j'utilise "PrintForm" pour l'imprimer,
j'aimerais l'imprimer automatiquement sur un fichier PDF ou le convertir
en fichiers PDF.
En VBA :
- Comment sauvegader le nom de l'imprimante par defaut actuelle?
- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
- Comment remettre l'ancienne inprimante par defaut?
Merci d'avance. ;-)
--
*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org
- Comment sauvegader le nom de l'imprimante par defaut actuelle?
Dim ImpSAV As String
- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
Dim ImpPdf As String
- Comment remettre l'ancienne inprimante par defaut?
Application.ActivePrinter = ImpSAV
Bonjour à Tous,
J'ai un formulaire dans lequel j'utilise "PrintForm" pour l'imprimer,
j'aimerais l'imprimer automatiquement sur un fichier PDF ou le convertir
en fichiers PDF.
En VBA :
- Comment sauvegader le nom de l'imprimante par defaut actuelle?
- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
- Comment remettre l'ancienne inprimante par defaut?
Merci d'avance. ;-)
--
*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org
- Comment sauvegader le nom de l'imprimante par defaut actuelle?
Dim ImpSAV As String
- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
Dim ImpPdf As String
- Comment remettre l'ancienne inprimante par defaut?
Application.ActivePrinter = ImpSAV
Bonjour à Tous,
J'ai un formulaire dans lequel j'utilise "PrintForm" pour l'imprimer,
j'aimerais l'imprimer automatiquement sur un fichier PDF ou le convertir
en fichiers PDF.
En VBA :
- Comment sauvegader le nom de l'imprimante par defaut actuelle?
- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
- Comment remettre l'ancienne inprimante par defaut?
Merci d'avance. ;-)
--
*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org
En VBA :
- Comment sauvegader le nom de l'imprimante par defaut actuelle?
- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
- Comment remettre l'ancienne inprimante par defaut?
En VBA :
- Comment sauvegader le nom de l'imprimante par defaut actuelle?
- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
- Comment remettre l'ancienne inprimante par defaut?
En VBA :
- Comment sauvegader le nom de l'imprimante par defaut actuelle?
- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
- Comment remettre l'ancienne inprimante par defaut?
Bonjour à Tous,
J'ai un formulaire dans lequel j'utilise "PrintForm" pour l'imprimer,
j'aimerais l'imprimer automatiquement sur un fichier PDF ou le convertir en
fichiers PDF.
En VBA :
- Comment sauvegader le nom de l'imprimante par defaut actuelle?
- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
- Comment remettre l'ancienne inprimante par defaut?
Merci d'avance. ;-)
Bonjour à Tous,
J'ai un formulaire dans lequel j'utilise "PrintForm" pour l'imprimer,
j'aimerais l'imprimer automatiquement sur un fichier PDF ou le convertir en
fichiers PDF.
En VBA :
- Comment sauvegader le nom de l'imprimante par defaut actuelle?
- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
- Comment remettre l'ancienne inprimante par defaut?
Merci d'avance. ;-)
Bonjour à Tous,
J'ai un formulaire dans lequel j'utilise "PrintForm" pour l'imprimer,
j'aimerais l'imprimer automatiquement sur un fichier PDF ou le convertir en
fichiers PDF.
En VBA :
- Comment sauvegader le nom de l'imprimante par defaut actuelle?
- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
- Comment remettre l'ancienne inprimante par defaut?
Merci d'avance. ;-)
Bonjour- Comment sauvegader le nom de l'imprimante par defaut actuelle?
Dim ImpSAV As String
ImpSAV = Application.ActivePrinter- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
Dim ImpPdf As String
ImpPdf = "PDFCreator sur NE00:"
Application.ActivePrinter = ImpPdf- Comment remettre l'ancienne inprimante par defaut?
Application.ActivePrinter = ImpSAV
Cordialement
Pascal
"EmanuelL" a écrit dans le message de news:Bonjour à Tous,
J'ai un formulaire dans lequel j'utilise "PrintForm" pour l'imprimer,
j'aimerais l'imprimer automatiquement sur un fichier PDF ou le convertir en
fichiers PDF.
En VBA :
- Comment sauvegader le nom de l'imprimante par defaut actuelle?
- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
- Comment remettre l'ancienne inprimante par defaut?
Merci d'avance. ;-)
--
*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org
Bonjour
- Comment sauvegader le nom de l'imprimante par defaut actuelle?
Dim ImpSAV As String
ImpSAV = Application.ActivePrinter
- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
Dim ImpPdf As String
ImpPdf = "PDFCreator sur NE00:"
Application.ActivePrinter = ImpPdf
- Comment remettre l'ancienne inprimante par defaut?
Application.ActivePrinter = ImpSAV
Cordialement
Pascal
"EmanuelL" <support@_nopop_fiduconsult.com> a écrit dans le message de news:
mn.d2f57d7b5e125ea2.10594@nopopfiduconsult.com...
Bonjour à Tous,
J'ai un formulaire dans lequel j'utilise "PrintForm" pour l'imprimer,
j'aimerais l'imprimer automatiquement sur un fichier PDF ou le convertir en
fichiers PDF.
En VBA :
- Comment sauvegader le nom de l'imprimante par defaut actuelle?
- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
- Comment remettre l'ancienne inprimante par defaut?
Merci d'avance. ;-)
--
*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org
Bonjour- Comment sauvegader le nom de l'imprimante par defaut actuelle?
Dim ImpSAV As String
ImpSAV = Application.ActivePrinter- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
Dim ImpPdf As String
ImpPdf = "PDFCreator sur NE00:"
Application.ActivePrinter = ImpPdf- Comment remettre l'ancienne inprimante par defaut?
Application.ActivePrinter = ImpSAV
Cordialement
Pascal
"EmanuelL" a écrit dans le message de news:Bonjour à Tous,
J'ai un formulaire dans lequel j'utilise "PrintForm" pour l'imprimer,
j'aimerais l'imprimer automatiquement sur un fichier PDF ou le convertir en
fichiers PDF.
En VBA :
- Comment sauvegader le nom de l'imprimante par defaut actuelle?
- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
- Comment remettre l'ancienne inprimante par defaut?
Merci d'avance. ;-)
--
*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org
Papou,
J'ai l'erreur ci-joint, cidessous :
http://cjoint.com/confirm.php?cjoint=lAqPke1lQL
Private Sub cmbImprimerFiche_Click()
Dim ImpSAV As String
ImpSAV = Application.ActivePrinter
ImpPdf = "PDFCreator"
' IL SE PLANTE ICI, j'ai bien l'imprimante PDECreator dans la liste des
mes imprimantes, mais! :'(
Application.ActivePrinter = ImpPdf
ufmOuvertureClient.PrintForm
Application.ActivePrinter = ImpSAV
End Sub
De quoi s'agit-il?
Merci d'avance.
Le 26.11.2007, papou a supposé :Bonjour- Comment sauvegader le nom de l'imprimante par defaut actuelle?
Dim ImpSAV As String
ImpSAV = Application.ActivePrinter- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
Dim ImpPdf As String
ImpPdf = "PDFCreator sur NE00:"
Application.ActivePrinter = ImpPdf- Comment remettre l'ancienne inprimante par defaut?
Application.ActivePrinter = ImpSAV
Cordialement
Pascal
"EmanuelL" a écrit dans le message de
news:Bonjour à Tous,
J'ai un formulaire dans lequel j'utilise "PrintForm" pour l'imprimer,
j'aimerais l'imprimer automatiquement sur un fichier PDF ou le convertir
en fichiers PDF.
En VBA :
- Comment sauvegader le nom de l'imprimante par defaut actuelle?
- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
- Comment remettre l'ancienne inprimante par defaut?
Merci d'avance. ;-)
--
*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org
--
*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org
Papou,
J'ai l'erreur ci-joint, cidessous :
http://cjoint.com/confirm.php?cjoint=lAqPke1lQL
Private Sub cmbImprimerFiche_Click()
Dim ImpSAV As String
ImpSAV = Application.ActivePrinter
ImpPdf = "PDFCreator"
' IL SE PLANTE ICI, j'ai bien l'imprimante PDECreator dans la liste des
mes imprimantes, mais! :'(
Application.ActivePrinter = ImpPdf
ufmOuvertureClient.PrintForm
Application.ActivePrinter = ImpSAV
End Sub
De quoi s'agit-il?
Merci d'avance.
Le 26.11.2007, papou a supposé :
Bonjour
- Comment sauvegader le nom de l'imprimante par defaut actuelle?
Dim ImpSAV As String
ImpSAV = Application.ActivePrinter
- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
Dim ImpPdf As String
ImpPdf = "PDFCreator sur NE00:"
Application.ActivePrinter = ImpPdf
- Comment remettre l'ancienne inprimante par defaut?
Application.ActivePrinter = ImpSAV
Cordialement
Pascal
"EmanuelL" <support@_nopop_fiduconsult.com> a écrit dans le message de
news: mn.d2f57d7b5e125ea2.10594@nopopfiduconsult.com...
Bonjour à Tous,
J'ai un formulaire dans lequel j'utilise "PrintForm" pour l'imprimer,
j'aimerais l'imprimer automatiquement sur un fichier PDF ou le convertir
en fichiers PDF.
En VBA :
- Comment sauvegader le nom de l'imprimante par defaut actuelle?
- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
- Comment remettre l'ancienne inprimante par defaut?
Merci d'avance. ;-)
--
*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org
--
*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org
Papou,
J'ai l'erreur ci-joint, cidessous :
http://cjoint.com/confirm.php?cjoint=lAqPke1lQL
Private Sub cmbImprimerFiche_Click()
Dim ImpSAV As String
ImpSAV = Application.ActivePrinter
ImpPdf = "PDFCreator"
' IL SE PLANTE ICI, j'ai bien l'imprimante PDECreator dans la liste des
mes imprimantes, mais! :'(
Application.ActivePrinter = ImpPdf
ufmOuvertureClient.PrintForm
Application.ActivePrinter = ImpSAV
End Sub
De quoi s'agit-il?
Merci d'avance.
Le 26.11.2007, papou a supposé :Bonjour- Comment sauvegader le nom de l'imprimante par defaut actuelle?
Dim ImpSAV As String
ImpSAV = Application.ActivePrinter- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
Dim ImpPdf As String
ImpPdf = "PDFCreator sur NE00:"
Application.ActivePrinter = ImpPdf- Comment remettre l'ancienne inprimante par defaut?
Application.ActivePrinter = ImpSAV
Cordialement
Pascal
"EmanuelL" a écrit dans le message de
news:Bonjour à Tous,
J'ai un formulaire dans lequel j'utilise "PrintForm" pour l'imprimer,
j'aimerais l'imprimer automatiquement sur un fichier PDF ou le convertir
en fichiers PDF.
En VBA :
- Comment sauvegader le nom de l'imprimante par defaut actuelle?
- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
- Comment remettre l'ancienne inprimante par defaut?
Merci d'avance. ;-)
--
*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org
--
*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org
Bonjour
Il s'agit d'un problème d'identification du port de l'imprimante.
Pour faire court :
Tu définis provisoirement l'imprimante PDFCreator comme imprimante par défaut
Tu vas dans Excel et tu écris ce code dans une macro provisoire :
Sub zozo()
Msgbox Application.ActivePrinter
End Sub
Tu exécutes la macro et tu notes précisément le nom qui s'affiche
Tu pourras alors modifier ta macro afin d'utiliser le libellé exact de
l'imprimante PDFCreator.
Cordialement
Pascal
"EmanuelL" a écrit dans le message de news:Papou,
J'ai l'erreur ci-joint, cidessous :
http://cjoint.com/confirm.php?cjoint=lAqPke1lQL
Private Sub cmbImprimerFiche_Click()
Dim ImpSAV As String
ImpSAV = Application.ActivePrinter
ImpPdf = "PDFCreator"
' IL SE PLANTE ICI, j'ai bien l'imprimante PDECreator dans la liste des
mes imprimantes, mais! :'(
Application.ActivePrinter = ImpPdf
ufmOuvertureClient.PrintForm
Application.ActivePrinter = ImpSAV
End Sub
De quoi s'agit-il?
Merci d'avance.
Le 26.11.2007, papou a supposé :Bonjour- Comment sauvegader le nom de l'imprimante par defaut actuelle?
Dim ImpSAV As String
ImpSAV = Application.ActivePrinter- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
Dim ImpPdf As String
ImpPdf = "PDFCreator sur NE00:"
Application.ActivePrinter = ImpPdf- Comment remettre l'ancienne inprimante par defaut?
Application.ActivePrinter = ImpSAV
Cordialement
Pascal
"EmanuelL" a écrit dans le message de
news:Bonjour à Tous,
J'ai un formulaire dans lequel j'utilise "PrintForm" pour l'imprimer,
j'aimerais l'imprimer automatiquement sur un fichier PDF ou le convertir
en fichiers PDF.
En VBA :
- Comment sauvegader le nom de l'imprimante par defaut actuelle?
- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
- Comment remettre l'ancienne inprimante par defaut?
Merci d'avance. ;-)
--
*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org
--
*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org
Bonjour
Il s'agit d'un problème d'identification du port de l'imprimante.
Pour faire court :
Tu définis provisoirement l'imprimante PDFCreator comme imprimante par défaut
Tu vas dans Excel et tu écris ce code dans une macro provisoire :
Sub zozo()
Msgbox Application.ActivePrinter
End Sub
Tu exécutes la macro et tu notes précisément le nom qui s'affiche
Tu pourras alors modifier ta macro afin d'utiliser le libellé exact de
l'imprimante PDFCreator.
Cordialement
Pascal
"EmanuelL" <support@_nopop_fiduconsult.com> a écrit dans le message de news:
mn.d3ed7d7b46aca4e2.10594@nopopfiduconsult.com...
Papou,
J'ai l'erreur ci-joint, cidessous :
http://cjoint.com/confirm.php?cjoint=lAqPke1lQL
Private Sub cmbImprimerFiche_Click()
Dim ImpSAV As String
ImpSAV = Application.ActivePrinter
ImpPdf = "PDFCreator"
' IL SE PLANTE ICI, j'ai bien l'imprimante PDECreator dans la liste des
mes imprimantes, mais! :'(
Application.ActivePrinter = ImpPdf
ufmOuvertureClient.PrintForm
Application.ActivePrinter = ImpSAV
End Sub
De quoi s'agit-il?
Merci d'avance.
Le 26.11.2007, papou a supposé :
Bonjour
- Comment sauvegader le nom de l'imprimante par defaut actuelle?
Dim ImpSAV As String
ImpSAV = Application.ActivePrinter
- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
Dim ImpPdf As String
ImpPdf = "PDFCreator sur NE00:"
Application.ActivePrinter = ImpPdf
- Comment remettre l'ancienne inprimante par defaut?
Application.ActivePrinter = ImpSAV
Cordialement
Pascal
"EmanuelL" <support@_nopop_fiduconsult.com> a écrit dans le message de
news: mn.d2f57d7b5e125ea2.10594@nopopfiduconsult.com...
Bonjour à Tous,
J'ai un formulaire dans lequel j'utilise "PrintForm" pour l'imprimer,
j'aimerais l'imprimer automatiquement sur un fichier PDF ou le convertir
en fichiers PDF.
En VBA :
- Comment sauvegader le nom de l'imprimante par defaut actuelle?
- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
- Comment remettre l'ancienne inprimante par defaut?
Merci d'avance. ;-)
--
*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org
--
*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org
Bonjour
Il s'agit d'un problème d'identification du port de l'imprimante.
Pour faire court :
Tu définis provisoirement l'imprimante PDFCreator comme imprimante par défaut
Tu vas dans Excel et tu écris ce code dans une macro provisoire :
Sub zozo()
Msgbox Application.ActivePrinter
End Sub
Tu exécutes la macro et tu notes précisément le nom qui s'affiche
Tu pourras alors modifier ta macro afin d'utiliser le libellé exact de
l'imprimante PDFCreator.
Cordialement
Pascal
"EmanuelL" a écrit dans le message de news:Papou,
J'ai l'erreur ci-joint, cidessous :
http://cjoint.com/confirm.php?cjoint=lAqPke1lQL
Private Sub cmbImprimerFiche_Click()
Dim ImpSAV As String
ImpSAV = Application.ActivePrinter
ImpPdf = "PDFCreator"
' IL SE PLANTE ICI, j'ai bien l'imprimante PDECreator dans la liste des
mes imprimantes, mais! :'(
Application.ActivePrinter = ImpPdf
ufmOuvertureClient.PrintForm
Application.ActivePrinter = ImpSAV
End Sub
De quoi s'agit-il?
Merci d'avance.
Le 26.11.2007, papou a supposé :Bonjour- Comment sauvegader le nom de l'imprimante par defaut actuelle?
Dim ImpSAV As String
ImpSAV = Application.ActivePrinter- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
Dim ImpPdf As String
ImpPdf = "PDFCreator sur NE00:"
Application.ActivePrinter = ImpPdf- Comment remettre l'ancienne inprimante par defaut?
Application.ActivePrinter = ImpSAV
Cordialement
Pascal
"EmanuelL" a écrit dans le message de
news:Bonjour à Tous,
J'ai un formulaire dans lequel j'utilise "PrintForm" pour l'imprimer,
j'aimerais l'imprimer automatiquement sur un fichier PDF ou le convertir
en fichiers PDF.
En VBA :
- Comment sauvegader le nom de l'imprimante par defaut actuelle?
- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
- Comment remettre l'ancienne inprimante par defaut?
Merci d'avance. ;-)
--
*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org
--
*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org
Bonjour
Il s'agit d'un problème d'identification du port de l'imprimante.
Pour faire court :
Tu définis provisoirement l'imprimante PDFCreator comme imprimante par défaut
Tu vas dans Excel et tu écris ce code dans une macro provisoire :
Sub zozo()
Msgbox Application.ActivePrinter
End Sub
Tu exécutes la macro et tu notes précisément le nom qui s'affiche
Tu pourras alors modifier ta macro afin d'utiliser le libellé exact de
l'imprimante PDFCreator.
Cordialement
Pascal
"EmanuelL" a écrit dans le message de news:Papou,
J'ai l'erreur ci-joint, cidessous :
http://cjoint.com/confirm.php?cjoint=lAqPke1lQL
Private Sub cmbImprimerFiche_Click()
Dim ImpSAV As String
ImpSAV = Application.ActivePrinter
ImpPdf = "PDFCreator"
' IL SE PLANTE ICI, j'ai bien l'imprimante PDECreator dans la liste des
mes imprimantes, mais! :'(
Application.ActivePrinter = ImpPdf
ufmOuvertureClient.PrintForm
Application.ActivePrinter = ImpSAV
End Sub
De quoi s'agit-il?
Merci d'avance.
Le 26.11.2007, papou a supposé :Bonjour- Comment sauvegader le nom de l'imprimante par defaut actuelle?
Dim ImpSAV As String
ImpSAV = Application.ActivePrinter- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
Dim ImpPdf As String
ImpPdf = "PDFCreator sur NE00:"
Application.ActivePrinter = ImpPdf- Comment remettre l'ancienne inprimante par defaut?
Application.ActivePrinter = ImpSAV
Cordialement
Pascal
"EmanuelL" a écrit dans le message de
news:Bonjour à Tous,
J'ai un formulaire dans lequel j'utilise "PrintForm" pour l'imprimer,
j'aimerais l'imprimer automatiquement sur un fichier PDF ou le convertir
en fichiers PDF.
En VBA :
- Comment sauvegader le nom de l'imprimante par defaut actuelle?
- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
- Comment remettre l'ancienne inprimante par defaut?
Merci d'avance. ;-)
--
*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org
--
*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org
Bonjour
Il s'agit d'un problème d'identification du port de l'imprimante.
Pour faire court :
Tu définis provisoirement l'imprimante PDFCreator comme imprimante par défaut
Tu vas dans Excel et tu écris ce code dans une macro provisoire :
Sub zozo()
Msgbox Application.ActivePrinter
End Sub
Tu exécutes la macro et tu notes précisément le nom qui s'affiche
Tu pourras alors modifier ta macro afin d'utiliser le libellé exact de
l'imprimante PDFCreator.
Cordialement
Pascal
"EmanuelL" <support@_nopop_fiduconsult.com> a écrit dans le message de news:
mn.d3ed7d7b46aca4e2.10594@nopopfiduconsult.com...
Papou,
J'ai l'erreur ci-joint, cidessous :
http://cjoint.com/confirm.php?cjoint=lAqPke1lQL
Private Sub cmbImprimerFiche_Click()
Dim ImpSAV As String
ImpSAV = Application.ActivePrinter
ImpPdf = "PDFCreator"
' IL SE PLANTE ICI, j'ai bien l'imprimante PDECreator dans la liste des
mes imprimantes, mais! :'(
Application.ActivePrinter = ImpPdf
ufmOuvertureClient.PrintForm
Application.ActivePrinter = ImpSAV
End Sub
De quoi s'agit-il?
Merci d'avance.
Le 26.11.2007, papou a supposé :
Bonjour
- Comment sauvegader le nom de l'imprimante par defaut actuelle?
Dim ImpSAV As String
ImpSAV = Application.ActivePrinter
- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
Dim ImpPdf As String
ImpPdf = "PDFCreator sur NE00:"
Application.ActivePrinter = ImpPdf
- Comment remettre l'ancienne inprimante par defaut?
Application.ActivePrinter = ImpSAV
Cordialement
Pascal
"EmanuelL" <support@_nopop_fiduconsult.com> a écrit dans le message de
news: mn.d2f57d7b5e125ea2.10594@nopopfiduconsult.com...
Bonjour à Tous,
J'ai un formulaire dans lequel j'utilise "PrintForm" pour l'imprimer,
j'aimerais l'imprimer automatiquement sur un fichier PDF ou le convertir
en fichiers PDF.
En VBA :
- Comment sauvegader le nom de l'imprimante par defaut actuelle?
- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
- Comment remettre l'ancienne inprimante par defaut?
Merci d'avance. ;-)
--
*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org
--
*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org
Bonjour
Il s'agit d'un problème d'identification du port de l'imprimante.
Pour faire court :
Tu définis provisoirement l'imprimante PDFCreator comme imprimante par défaut
Tu vas dans Excel et tu écris ce code dans une macro provisoire :
Sub zozo()
Msgbox Application.ActivePrinter
End Sub
Tu exécutes la macro et tu notes précisément le nom qui s'affiche
Tu pourras alors modifier ta macro afin d'utiliser le libellé exact de
l'imprimante PDFCreator.
Cordialement
Pascal
"EmanuelL" a écrit dans le message de news:Papou,
J'ai l'erreur ci-joint, cidessous :
http://cjoint.com/confirm.php?cjoint=lAqPke1lQL
Private Sub cmbImprimerFiche_Click()
Dim ImpSAV As String
ImpSAV = Application.ActivePrinter
ImpPdf = "PDFCreator"
' IL SE PLANTE ICI, j'ai bien l'imprimante PDECreator dans la liste des
mes imprimantes, mais! :'(
Application.ActivePrinter = ImpPdf
ufmOuvertureClient.PrintForm
Application.ActivePrinter = ImpSAV
End Sub
De quoi s'agit-il?
Merci d'avance.
Le 26.11.2007, papou a supposé :Bonjour- Comment sauvegader le nom de l'imprimante par defaut actuelle?
Dim ImpSAV As String
ImpSAV = Application.ActivePrinter- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
Dim ImpPdf As String
ImpPdf = "PDFCreator sur NE00:"
Application.ActivePrinter = ImpPdf- Comment remettre l'ancienne inprimante par defaut?
Application.ActivePrinter = ImpSAV
Cordialement
Pascal
"EmanuelL" a écrit dans le message de
news:Bonjour à Tous,
J'ai un formulaire dans lequel j'utilise "PrintForm" pour l'imprimer,
j'aimerais l'imprimer automatiquement sur un fichier PDF ou le convertir
en fichiers PDF.
En VBA :
- Comment sauvegader le nom de l'imprimante par defaut actuelle?
- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
- Comment remettre l'ancienne inprimante par defaut?
Merci d'avance. ;-)
--
*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org
--
*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org
Bonjour à Tous,
J'ai un formulaire dans lequel j'utilise "PrintForm" pour l'imprimer,
j'aimerais l'imprimer automatiquement sur un fichier PDF ou le convertir en
fichiers PDF.
En VBA :
- Comment sauvegader le nom de l'imprimante par defaut actuelle?
- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
- Comment remettre l'ancienne inprimante par defaut?
Merci d'avance. ;-)
Bonjour à Tous,
J'ai un formulaire dans lequel j'utilise "PrintForm" pour l'imprimer,
j'aimerais l'imprimer automatiquement sur un fichier PDF ou le convertir en
fichiers PDF.
En VBA :
- Comment sauvegader le nom de l'imprimante par defaut actuelle?
- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
- Comment remettre l'ancienne inprimante par defaut?
Merci d'avance. ;-)
Bonjour à Tous,
J'ai un formulaire dans lequel j'utilise "PrintForm" pour l'imprimer,
j'aimerais l'imprimer automatiquement sur un fichier PDF ou le convertir en
fichiers PDF.
En VBA :
- Comment sauvegader le nom de l'imprimante par defaut actuelle?
- Comment mettre en PDFCreator ou autre comme imprimante par defaut?
- Comment remettre l'ancienne inprimante par defaut?
Merci d'avance. ;-)