Bonsoir,
J'ai créé dans un userform de Excel, des spreadsheet et des chartspace.
J'aimerai savoir comment faire pour pouvoir les imprimer
J'ai regardé les méthodes de ces composants, mais je n'ai rien trouver.
Pouvez-vous m'aider?
Merci
Bonsoir,
J'ai créé dans un userform de Excel, des spreadsheet et des chartspace.
J'aimerai savoir comment faire pour pouvoir les imprimer
J'ai regardé les méthodes de ces composants, mais je n'ai rien trouver.
Pouvez-vous m'aider?
Merci
Bonsoir,
J'ai créé dans un userform de Excel, des spreadsheet et des chartspace.
J'aimerai savoir comment faire pour pouvoir les imprimer
J'ai regardé les méthodes de ces composants, mais je n'ai rien trouver.
Pouvez-vous m'aider?
Merci
bonsoir,
pas beaucoup de solutions pour imprimer un UF. En voici une qui n'est pas
de moi. Me rappelle plus l'auteur.Elle marche
'Pour permettre la capture d'écran lors de la demande d'imprssion d'un
userform
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal
bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub CommandButton1_Click()
'pour imprimer le userform par copie d'image après création d'un nouveau
classeur recevant l'image de l'écran en cours
Const Ecran As Byte = 1
Const oForm As Byte = 0
Me.Repaint ' Pour que le bouton soit relaché
sur l 'impression
keybd_event vbKeySnapshot, oForm, 0&, 0&
DoEvents
Workbooks.Add
ActiveSheet.Paste
With ActiveSheet.PageSetup
.RightFooter = Me.Caption & " Le &D Page &P/&N"
.PrintGridlines = False
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End Sub
A+Bonsoir,
J'ai créé dans un userform de Excel, des spreadsheet et des chartspace.
J'aimerai savoir comment faire pour pouvoir les imprimer
J'ai regardé les méthodes de ces composants, mais je n'ai rien trouver.
Pouvez-vous m'aider?
Merci
bonsoir,
pas beaucoup de solutions pour imprimer un UF. En voici une qui n'est pas
de moi. Me rappelle plus l'auteur.Elle marche
'Pour permettre la capture d'écran lors de la demande d'imprssion d'un
userform
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal
bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub CommandButton1_Click()
'pour imprimer le userform par copie d'image après création d'un nouveau
classeur recevant l'image de l'écran en cours
Const Ecran As Byte = 1
Const oForm As Byte = 0
Me.Repaint ' Pour que le bouton soit relaché
sur l 'impression
keybd_event vbKeySnapshot, oForm, 0&, 0&
DoEvents
Workbooks.Add
ActiveSheet.Paste
With ActiveSheet.PageSetup
.RightFooter = Me.Caption & " Le &D Page &P/&N"
.PrintGridlines = False
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End Sub
A+
Bonsoir,
J'ai créé dans un userform de Excel, des spreadsheet et des chartspace.
J'aimerai savoir comment faire pour pouvoir les imprimer
J'ai regardé les méthodes de ces composants, mais je n'ai rien trouver.
Pouvez-vous m'aider?
Merci
bonsoir,
pas beaucoup de solutions pour imprimer un UF. En voici une qui n'est pas
de moi. Me rappelle plus l'auteur.Elle marche
'Pour permettre la capture d'écran lors de la demande d'imprssion d'un
userform
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal
bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub CommandButton1_Click()
'pour imprimer le userform par copie d'image après création d'un nouveau
classeur recevant l'image de l'écran en cours
Const Ecran As Byte = 1
Const oForm As Byte = 0
Me.Repaint ' Pour que le bouton soit relaché
sur l 'impression
keybd_event vbKeySnapshot, oForm, 0&, 0&
DoEvents
Workbooks.Add
ActiveSheet.Paste
With ActiveSheet.PageSetup
.RightFooter = Me.Caption & " Le &D Page &P/&N"
.PrintGridlines = False
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End Sub
A+Bonsoir,
J'ai créé dans un userform de Excel, des spreadsheet et des chartspace.
J'aimerai savoir comment faire pour pouvoir les imprimer
J'ai regardé les méthodes de ces composants, mais je n'ai rien trouver.
Pouvez-vous m'aider?
Merci
ben,
si je t'ai répondu ça, c'est qu'il n'y a pas d'autre moyen à ma
connaissance.J'ai eu l'occasion de me pencher sur la question il y a assez
peu de temps et je n'ai rien pu trouver d'autre que ce biais.
A+Merci de ta réponse
Mais ce n'est pas vraiment ce que je recherche (j'ai du mal m'exprimer).
En fait je ne cherche pas à imprimer les UserForm, je cherche à imprimer
uniquement le spreadsheet ou le chartspace sans avoir a retransférer les
données dans Excel.
Si quelqu'un a une solution.
Merci encore
"anonymousA" a écrit dans le message de news:
427fc9b7$0$25054$bonsoir,
pas beaucoup de solutions pour imprimer un UF. En voici une qui n'est pas
de moi. Me rappelle plus l'auteur.Elle marche
'Pour permettre la capture d'écran lors de la demande d'imprssion d'un
userform
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal
bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub CommandButton1_Click()
'pour imprimer le userform par copie d'image après création d'un nouveau
classeur recevant l'image de l'écran en cours
Const Ecran As Byte = 1
Const oForm As Byte = 0
Me.Repaint ' Pour que le bouton soit relaché
sur l 'impression
keybd_event vbKeySnapshot, oForm, 0&, 0&
DoEvents
Workbooks.Add
ActiveSheet.Paste
With ActiveSheet.PageSetup
.RightFooter = Me.Caption & " Le &D Page &P/&N"
.PrintGridlines = False
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End Sub
A+Bonsoir,
J'ai créé dans un userform de Excel, des spreadsheet et des chartspace.
J'aimerai savoir comment faire pour pouvoir les imprimer
J'ai regardé les méthodes de ces composants, mais je n'ai rien trouver.
Pouvez-vous m'aider?
Merci
ben,
si je t'ai répondu ça, c'est qu'il n'y a pas d'autre moyen à ma
connaissance.J'ai eu l'occasion de me pencher sur la question il y a assez
peu de temps et je n'ai rien pu trouver d'autre que ce biais.
A+
Merci de ta réponse
Mais ce n'est pas vraiment ce que je recherche (j'ai du mal m'exprimer).
En fait je ne cherche pas à imprimer les UserForm, je cherche à imprimer
uniquement le spreadsheet ou le chartspace sans avoir a retransférer les
données dans Excel.
Si quelqu'un a une solution.
Merci encore
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
427fc9b7$0$25054$8fcfb975@news.wanadoo.fr...
bonsoir,
pas beaucoup de solutions pour imprimer un UF. En voici une qui n'est pas
de moi. Me rappelle plus l'auteur.Elle marche
'Pour permettre la capture d'écran lors de la demande d'imprssion d'un
userform
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal
bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub CommandButton1_Click()
'pour imprimer le userform par copie d'image après création d'un nouveau
classeur recevant l'image de l'écran en cours
Const Ecran As Byte = 1
Const oForm As Byte = 0
Me.Repaint ' Pour que le bouton soit relaché
sur l 'impression
keybd_event vbKeySnapshot, oForm, 0&, 0&
DoEvents
Workbooks.Add
ActiveSheet.Paste
With ActiveSheet.PageSetup
.RightFooter = Me.Caption & " Le &D Page &P/&N"
.PrintGridlines = False
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End Sub
A+
Bonsoir,
J'ai créé dans un userform de Excel, des spreadsheet et des chartspace.
J'aimerai savoir comment faire pour pouvoir les imprimer
J'ai regardé les méthodes de ces composants, mais je n'ai rien trouver.
Pouvez-vous m'aider?
Merci
ben,
si je t'ai répondu ça, c'est qu'il n'y a pas d'autre moyen à ma
connaissance.J'ai eu l'occasion de me pencher sur la question il y a assez
peu de temps et je n'ai rien pu trouver d'autre que ce biais.
A+Merci de ta réponse
Mais ce n'est pas vraiment ce que je recherche (j'ai du mal m'exprimer).
En fait je ne cherche pas à imprimer les UserForm, je cherche à imprimer
uniquement le spreadsheet ou le chartspace sans avoir a retransférer les
données dans Excel.
Si quelqu'un a une solution.
Merci encore
"anonymousA" a écrit dans le message de news:
427fc9b7$0$25054$bonsoir,
pas beaucoup de solutions pour imprimer un UF. En voici une qui n'est pas
de moi. Me rappelle plus l'auteur.Elle marche
'Pour permettre la capture d'écran lors de la demande d'imprssion d'un
userform
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal
bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub CommandButton1_Click()
'pour imprimer le userform par copie d'image après création d'un nouveau
classeur recevant l'image de l'écran en cours
Const Ecran As Byte = 1
Const oForm As Byte = 0
Me.Repaint ' Pour que le bouton soit relaché
sur l 'impression
keybd_event vbKeySnapshot, oForm, 0&, 0&
DoEvents
Workbooks.Add
ActiveSheet.Paste
With ActiveSheet.PageSetup
.RightFooter = Me.Caption & " Le &D Page &P/&N"
.PrintGridlines = False
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End Sub
A+Bonsoir,
J'ai créé dans un userform de Excel, des spreadsheet et des chartspace.
J'aimerai savoir comment faire pour pouvoir les imprimer
J'ai regardé les méthodes de ces composants, mais je n'ai rien trouver.
Pouvez-vous m'aider?
Merci
Merci de ta réponse
Mais ce n'est pas vraiment ce que je recherche (j'ai du mal m'exprimer). En
fait je ne cherche pas à imprimer les UserForm, je cherche à imprimer
uniquement le spreadsheet ou le chartspace sans avoir a retransférer les
données dans Excel.
Si quelqu'un a une solution.
Merci encore
"anonymousA" a écrit dans le message de news:
427fc9b7$0$25054$bonsoir,
pas beaucoup de solutions pour imprimer un UF. En voici une qui n'est pas
de moi. Me rappelle plus l'auteur.Elle marche
'Pour permettre la capture d'écran lors de la demande d'imprssion d'un
userform
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal
bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub CommandButton1_Click()
'pour imprimer le userform par copie d'image après création d'un nouveau
classeur recevant l'image de l'écran en cours
Const Ecran As Byte = 1
Const oForm As Byte = 0
Me.Repaint ' Pour que le bouton soit relaché
sur l 'impression
keybd_event vbKeySnapshot, oForm, 0&, 0&
DoEvents
Workbooks.Add
ActiveSheet.Paste
With ActiveSheet.PageSetup
.RightFooter = Me.Caption & " Le &D Page &P/&N"
.PrintGridlines = False
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End Sub
A+Bonsoir,
J'ai créé dans un userform de Excel, des spreadsheet et des chartspace.
J'aimerai savoir comment faire pour pouvoir les imprimer
J'ai regardé les méthodes de ces composants, mais je n'ai rien trouver.
Pouvez-vous m'aider?
Merci
Merci de ta réponse
Mais ce n'est pas vraiment ce que je recherche (j'ai du mal m'exprimer). En
fait je ne cherche pas à imprimer les UserForm, je cherche à imprimer
uniquement le spreadsheet ou le chartspace sans avoir a retransférer les
données dans Excel.
Si quelqu'un a une solution.
Merci encore
"anonymousA" <anonymousA@wanadoo.fr> a écrit dans le message de news:
427fc9b7$0$25054$8fcfb975@news.wanadoo.fr...
bonsoir,
pas beaucoup de solutions pour imprimer un UF. En voici une qui n'est pas
de moi. Me rappelle plus l'auteur.Elle marche
'Pour permettre la capture d'écran lors de la demande d'imprssion d'un
userform
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal
bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub CommandButton1_Click()
'pour imprimer le userform par copie d'image après création d'un nouveau
classeur recevant l'image de l'écran en cours
Const Ecran As Byte = 1
Const oForm As Byte = 0
Me.Repaint ' Pour que le bouton soit relaché
sur l 'impression
keybd_event vbKeySnapshot, oForm, 0&, 0&
DoEvents
Workbooks.Add
ActiveSheet.Paste
With ActiveSheet.PageSetup
.RightFooter = Me.Caption & " Le &D Page &P/&N"
.PrintGridlines = False
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End Sub
A+
Bonsoir,
J'ai créé dans un userform de Excel, des spreadsheet et des chartspace.
J'aimerai savoir comment faire pour pouvoir les imprimer
J'ai regardé les méthodes de ces composants, mais je n'ai rien trouver.
Pouvez-vous m'aider?
Merci
Merci de ta réponse
Mais ce n'est pas vraiment ce que je recherche (j'ai du mal m'exprimer). En
fait je ne cherche pas à imprimer les UserForm, je cherche à imprimer
uniquement le spreadsheet ou le chartspace sans avoir a retransférer les
données dans Excel.
Si quelqu'un a une solution.
Merci encore
"anonymousA" a écrit dans le message de news:
427fc9b7$0$25054$bonsoir,
pas beaucoup de solutions pour imprimer un UF. En voici une qui n'est pas
de moi. Me rappelle plus l'auteur.Elle marche
'Pour permettre la capture d'écran lors de la demande d'imprssion d'un
userform
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal
bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub CommandButton1_Click()
'pour imprimer le userform par copie d'image après création d'un nouveau
classeur recevant l'image de l'écran en cours
Const Ecran As Byte = 1
Const oForm As Byte = 0
Me.Repaint ' Pour que le bouton soit relaché
sur l 'impression
keybd_event vbKeySnapshot, oForm, 0&, 0&
DoEvents
Workbooks.Add
ActiveSheet.Paste
With ActiveSheet.PageSetup
.RightFooter = Me.Caption & " Le &D Page &P/&N"
.PrintGridlines = False
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End Sub
A+Bonsoir,
J'ai créé dans un userform de Excel, des spreadsheet et des chartspace.
J'aimerai savoir comment faire pour pouvoir les imprimer
J'ai regardé les méthodes de ces composants, mais je n'ai rien trouver.
Pouvez-vous m'aider?
Merci
Bonsoir,
J'ai créé dans un userform de Excel, des spreadsheet et des chartspace.
J'aimerai savoir comment faire pour pouvoir les imprimer
J'ai regardé les méthodes de ces composants, mais je n'ai rien trouver.
Pouvez-vous m'aider?
Merci
Bonsoir,
J'ai créé dans un userform de Excel, des spreadsheet et des chartspace.
J'aimerai savoir comment faire pour pouvoir les imprimer
J'ai regardé les méthodes de ces composants, mais je n'ai rien trouver.
Pouvez-vous m'aider?
Merci
Bonsoir,
J'ai créé dans un userform de Excel, des spreadsheet et des chartspace.
J'aimerai savoir comment faire pour pouvoir les imprimer
J'ai regardé les méthodes de ces composants, mais je n'ai rien trouver.
Pouvez-vous m'aider?
Merci
Bonsoir theyankee7620;
Le plus simple est d'utiliser la fonction d'export à partir par exemple d'un
bouton d'impression sur l'userform.
Private Sub CmdPrint_Click()
Me.Repaint
Const Wbk = "c:MyTest.xls" ' Par exemple !
Me.Spreadsheet1.Export Wbk, ssExportActionNone, ssExportAsAppropriate
Dim oXL As Object, wBook As Object
Set oXL = CreateObject("Excel.Application")
Set wBook = oXL.Workbooks.Open(Wbk)
wBook.Sheets(1).PrintOut Copies:=1
wBook.Close False
Kill Wbk
oXL.Quit
Set wBook = Nothing: Set oXL = Nothing
End Sub
MP
"theyankee7620" a écrit dans le message de news:
#Bonsoir,
J'ai créé dans un userform de Excel, des spreadsheet et des chartspace.
J'aimerai savoir comment faire pour pouvoir les imprimer
J'ai regardé les méthodes de ces composants, mais je n'ai rien trouver.
Pouvez-vous m'aider?
Merci
Bonsoir theyankee7620;
Le plus simple est d'utiliser la fonction d'export à partir par exemple d'un
bouton d'impression sur l'userform.
Private Sub CmdPrint_Click()
Me.Repaint
Const Wbk = "c:MyTest.xls" ' Par exemple !
Me.Spreadsheet1.Export Wbk, ssExportActionNone, ssExportAsAppropriate
Dim oXL As Object, wBook As Object
Set oXL = CreateObject("Excel.Application")
Set wBook = oXL.Workbooks.Open(Wbk)
wBook.Sheets(1).PrintOut Copies:=1
wBook.Close False
Kill Wbk
oXL.Quit
Set wBook = Nothing: Set oXL = Nothing
End Sub
MP
"theyankee7620" <theyankee76@hotmail.com> a écrit dans le message de news:
#UlkvLNVFHA.548@tk2msftngp13.phx.gbl...
Bonsoir,
J'ai créé dans un userform de Excel, des spreadsheet et des chartspace.
J'aimerai savoir comment faire pour pouvoir les imprimer
J'ai regardé les méthodes de ces composants, mais je n'ai rien trouver.
Pouvez-vous m'aider?
Merci
Bonsoir theyankee7620;
Le plus simple est d'utiliser la fonction d'export à partir par exemple d'un
bouton d'impression sur l'userform.
Private Sub CmdPrint_Click()
Me.Repaint
Const Wbk = "c:MyTest.xls" ' Par exemple !
Me.Spreadsheet1.Export Wbk, ssExportActionNone, ssExportAsAppropriate
Dim oXL As Object, wBook As Object
Set oXL = CreateObject("Excel.Application")
Set wBook = oXL.Workbooks.Open(Wbk)
wBook.Sheets(1).PrintOut Copies:=1
wBook.Close False
Kill Wbk
oXL.Quit
Set wBook = Nothing: Set oXL = Nothing
End Sub
MP
"theyankee7620" a écrit dans le message de news:
#Bonsoir,
J'ai créé dans un userform de Excel, des spreadsheet et des chartspace.
J'aimerai savoir comment faire pour pouvoir les imprimer
J'ai regardé les méthodes de ces composants, mais je n'ai rien trouver.
Pouvez-vous m'aider?
Merci
bonjour,
c'est exact pour les speadsheet, mais pour les chartspace, je ne vois pas.
A+Bonsoir theyankee7620;
Le plus simple est d'utiliser la fonction d'export à partir par exemple
d'un
bouton d'impression sur l'userform.
Private Sub CmdPrint_Click()
Me.Repaint
Const Wbk = "c:MyTest.xls" ' Par exemple !
Me.Spreadsheet1.Export Wbk, ssExportActionNone, ssExportAsAppropriate
Dim oXL As Object, wBook As Object
Set oXL = CreateObject("Excel.Application")
Set wBook = oXL.Workbooks.Open(Wbk)
wBook.Sheets(1).PrintOut Copies:=1
wBook.Close False
Kill Wbk
oXL.Quit
Set wBook = Nothing: Set oXL = Nothing
End Sub
MP
"theyankee7620" a écrit dans le message de
news:
#Bonsoir,
J'ai créé dans un userform de Excel, des spreadsheet et des chartspace.
J'aimerai savoir comment faire pour pouvoir les imprimer
J'ai regardé les méthodes de ces composants, mais je n'ai rien trouver.
Pouvez-vous m'aider?
Merci
bonjour,
c'est exact pour les speadsheet, mais pour les chartspace, je ne vois pas.
A+
Bonsoir theyankee7620;
Le plus simple est d'utiliser la fonction d'export à partir par exemple
d'un
bouton d'impression sur l'userform.
Private Sub CmdPrint_Click()
Me.Repaint
Const Wbk = "c:MyTest.xls" ' Par exemple !
Me.Spreadsheet1.Export Wbk, ssExportActionNone, ssExportAsAppropriate
Dim oXL As Object, wBook As Object
Set oXL = CreateObject("Excel.Application")
Set wBook = oXL.Workbooks.Open(Wbk)
wBook.Sheets(1).PrintOut Copies:=1
wBook.Close False
Kill Wbk
oXL.Quit
Set wBook = Nothing: Set oXL = Nothing
End Sub
MP
"theyankee7620" <theyankee76@hotmail.com> a écrit dans le message de
news:
#UlkvLNVFHA.548@tk2msftngp13.phx.gbl...
Bonsoir,
J'ai créé dans un userform de Excel, des spreadsheet et des chartspace.
J'aimerai savoir comment faire pour pouvoir les imprimer
J'ai regardé les méthodes de ces composants, mais je n'ai rien trouver.
Pouvez-vous m'aider?
Merci
bonjour,
c'est exact pour les speadsheet, mais pour les chartspace, je ne vois pas.
A+Bonsoir theyankee7620;
Le plus simple est d'utiliser la fonction d'export à partir par exemple
d'un
bouton d'impression sur l'userform.
Private Sub CmdPrint_Click()
Me.Repaint
Const Wbk = "c:MyTest.xls" ' Par exemple !
Me.Spreadsheet1.Export Wbk, ssExportActionNone, ssExportAsAppropriate
Dim oXL As Object, wBook As Object
Set oXL = CreateObject("Excel.Application")
Set wBook = oXL.Workbooks.Open(Wbk)
wBook.Sheets(1).PrintOut Copies:=1
wBook.Close False
Kill Wbk
oXL.Quit
Set wBook = Nothing: Set oXL = Nothing
End Sub
MP
"theyankee7620" a écrit dans le message de
news:
#Bonsoir,
J'ai créé dans un userform de Excel, des spreadsheet et des chartspace.
J'aimerai savoir comment faire pour pouvoir les imprimer
J'ai regardé les méthodes de ces composants, mais je n'ai rien trouver.
Pouvez-vous m'aider?
Merci
