VB & imprimante Word

Bonjour à tous

J'ai un petit problème à vous soumettre. A partir d'un programme VB, je dois imprimer des documents words. Jusque là, tout roule. Malheureusement, je dois maintenant, les imprimer en recto-verso. L'imprimante est capable de le faire automatiquement.
Si je positionne dans windows, imprision recto-verso, tous les documents s'imprime correctement. Mais il ne faut l'imprimer que pour certains documents. Comment pouvoir changer cette option.

Bien à vous
Bernard

Salut,

J'avais eu à un réaliser un truc comme ça il y a quelques années...

J'avais définit à l'aide d'API les propriétés de l'imprimante avant d'imprimer (en ayant sauvegarder les anciens paramètres avant).

Et ensuite, dès que j'avais terminé, je remettais les anciens paramètres à l'imprimante...

Je ne connais pas les API par coeur, mais tu les trouverais sur allapi.net

En espérant que cela puisse t'aider!

++

[ XtOf ]


-------------------------------
Réponse au message :
-------------------------------

> Bonjour à tous
>
> J'ai un petit problème à vous soumettre. A partir d'un programme VB, je dois imprimer des documents words. Jusque là, tout roule. Malheureusement, je dois maintenant, les imprimer en recto-verso. L'imprimante est capable de le faire automatiquement.
> Si je positionne dans windows, imprision recto-verso, tous les documents s'imprime correctement. Mais il ne faut l'imprimer que pour certains documents. Comment pouvoir changer cette option.
>
> Bien à vous
> Bernard

Bonjour

Je viens d'aller voir sur le site en question. Effectivement, il regorge d'information sur les API. Malheureusement, je ne vois pas quelle API je dois utiliser pour assigner une valeur a l'imprimante.

De même, j'ai essaié d'assigner des valeurs a l'imprimante avec un objet PRINTER. Apparement, tout se passe bien pour changer les valeurs, mais lorsque j'imprime, ca n'a pas beaucoup d'effets.

Bernard



-------------------------------
Réponse au message :
-------------------------------

> Salut,
>
> J'avais eu à un réaliser un truc comme ça il y a quelques années...
>
> J'avais définit à l'aide d'API les propriétés de l'imprimante avant d'imprimer (en ayant sauvegarder les anciens paramètres avant).
>
> Et ensuite, dès que j'avais terminé, je remettais les anciens paramètres à l'imprimante...
>
> Je ne connais pas les API par coeur, mais tu les trouverais sur allapi.net
>
> En espérant que cela puisse t'aider!
>
> ++
>
> [ XtOf ]
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Bonjour à tous
> >
> > J'ai un petit problème à vous soumettre. A partir d'un programme VB, je dois imprimer des documents words. Jusque là, tout roule. Malheureusement, je dois maintenant, les imprimer en recto-verso. L'imprimante est capable de le faire automatiquement.
> > Si je positionne dans windows, imprision recto-verso, tous les documents s'imprime correctement. Mais il ne faut l'imprimer que pour certains documents. Comment pouvoir changer cette option.
> >
> > Bien à vous
> > Bernard
>

Et bien! Je ne pensais pas devoir dézipper mes vieilles sources... Cela ne me rajeunit pas ! ;o)

La fonction que j'utilisais était EXTDEVICEMODE.

C'est hyper lourd car je chargeais le driver .drv en mémoire à l'époque...

Je suppose qu'en cherchant un peu, tu trouveras l'équivalent en API.

La structure DEVMODE existe toujours et correspond bien au paramètres de l'imprimante.

[ XtOf ]


-------------------------------
Réponse au message :
-------------------------------

> Bonjour
>
> Je viens d'aller voir sur le site en question. Effectivement, il regorge d'information sur les API. Malheureusement, je ne vois pas quelle API je dois utiliser pour assigner une valeur a l'imprimante.
>
> De même, j'ai essaié d'assigner des valeurs a l'imprimante avec un objet PRINTER. Apparement, tout se passe bien pour changer les valeurs, mais lorsque j'imprime, ca n'a pas beaucoup d'effets.
>
> Bernard
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Salut,
> >
> > J'avais eu à un réaliser un truc comme ça il y a quelques années...
> >
> > J'avais définit à l'aide d'API les propriétés de l'imprimante avant d'imprimer (en ayant sauvegarder les anciens paramètres avant).
> >
> > Et ensuite, dès que j'avais terminé, je remettais les anciens paramètres à l'imprimante...
> >
> > Je ne connais pas les API par coeur, mais tu les trouverais sur allapi.net
> >
> > En espérant que cela puisse t'aider!
> >
> > ++
> >
> > [ XtOf ]
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > Bonjour à tous
> > >
> > > J'ai un petit problème à vous soumettre. A partir d'un programme VB, je dois imprimer des documents words. Jusque là, tout roule. Malheureusement, je dois maintenant, les imprimer en recto-verso. L'imprimante est capable de le faire automatiquement.
> > > Si je positionne dans windows, imprision recto-verso, tous les documents s'imprime correctement. Mais il ne faut l'imprimer que pour certains documents. Comment pouvoir changer cette option.
> > >
> > > Bien à vous
> > > Bernard
> >
>

J'ai trouvé un bout de code VB sur AllApi qui te permettra de changer la configuration de l'imprimante...

--> A REBIDOUILLER !!!

Si tu ne veux pas que l'user voit la fenêtre imprimante, n'appelle pas la fonction PrintDialog(PrintDlg).

Public Sub ShowPrinter(frmOwner As Form, Optional PrintFlags As Long) '-> Code by Donald Grover Dim PrintDlg As PRINTDLG_TYPE Dim DevMode As DEVMODE_TYPE Dim DevName As DEVNAMES_TYPE Dim lpDevMode As Long, lpDevName As Long Dim bReturn As Integer Dim objPrinter As Printer, NewPrinterName As String ' Use PrintDialog to get the handle to a memory ' block with a DevMode and DevName structures PrintDlg.lStructSize = Len(PrintDlg) PrintDlg.hwndOwner = frmOwner.hWnd PrintDlg.flags = PrintFlags On Error Resume Next 'Set the current orientation and duplex setting DevMode.dmDeviceName = Printer.DeviceName DevMode.dmSize = Len(DevMode) DevMode.dmFields = DM_ORIENTATION Or DM_DUPLEX DevMode.dmPaperWidth = Printer.Width DevMode.dmOrientation = Printer.Orientation DevMode.dmPaperSize = Printer.PaperSize DevMode.dmDuplex = Printer.Duplex On Error GoTo 0 'Allocate memory for the initialization hDevMode structure 'and copy the settings gathered above into this memory PrintDlg.hDevMode = GlobalAlloc(GMEM_MOVEABLE Or GMEM_ZEROINIT, Len(DevMode)) lpDevMode = GlobalLock(PrintDlg.hDevMode) If lpDevMode > 0 Then CopyMemory ByVal lpDevMode, DevMode, Len(DevMode) bReturn = GlobalUnlock(PrintDlg.hDevMode) End If 'Set the current driver, device, and port name strings With DevName .wDriverOffset = 8 .wDeviceOffset = .wDriverOffset + 1 + Len(Printer.DriverName) .wOutputOffset = .wDeviceOffset + 1 + Len(Printer.Port) .wDefault = 0 End With With Printer DevName.extra = .DriverName & Chr(0) & .DeviceName & Chr(0) & .Port & Chr(0) End With 'Allocate memory for the initial hDevName structure 'and copy the settings gathered above into this memory PrintDlg.hDevNames = GlobalAlloc(GMEM_MOVEABLE Or GMEM_ZEROINIT, Len(DevName)) lpDevName = GlobalLock(PrintDlg.hDevNames) If lpDevName > 0 Then CopyMemory ByVal lpDevName, DevName, Len(DevName) bReturn = GlobalUnlock(lpDevName) End If 'Call the print dialog up and let the user make changes If PrintDialog(PrintDlg) <> 0 Then 'First get the DevName structure. lpDevName = GlobalLock(PrintDlg.hDevNames) CopyMemory DevName, ByVal lpDevName, 45 bReturn = GlobalUnlock(lpDevName) GlobalFree PrintDlg.hDevNames 'Next get the DevMode structure and set the printer 'properties appropriately lpDevMode = GlobalLock(PrintDlg.hDevMode) CopyMemory DevMode, ByVal lpDevMode, Len(DevMode) bReturn = GlobalUnlock(PrintDlg.hDevMode) GlobalFree PrintDlg.hDevMode NewPrinterName = UCase$(Left(DevMode.dmDeviceName, InStr(DevMode.dmDeviceName, Chr$(0)) - 1)) If Printer.DeviceName <> NewPrinterName Then For Each objPrinter In Printers If UCase$(objPrinter.DeviceName) = NewPrinterName Then Set Printer = objPrinter 'set printer toolbar name at this point End If Next End If On Error Resume Next 'Set printer object properties according to selections made 'by user Printer.Copies = DevMode.dmCopies Printer.Duplex = DevMode.dmDuplex Printer.Orientation = DevMode.dmOrientation Printer.PaperSize = DevMode.dmPaperSize Printer.PrintQuality = DevMode.dmPrintQuality Printer.ColorMode = DevMode.dmColor Printer.PaperBin = DevMode.dmDefaultSource On Error GoTo 0 End If End Sub

[ XtOf ]


-------------------------------
Réponse au message :
-------------------------------

> Bonjour
>
> Je viens d'aller voir sur le site en question. Effectivement, il regorge d'information sur les API. Malheureusement, je ne vois pas quelle API je dois utiliser pour assigner une valeur a l'imprimante.
>
> De même, j'ai essaié d'assigner des valeurs a l'imprimante avec un objet PRINTER. Apparement, tout se passe bien pour changer les valeurs, mais lorsque j'imprime, ca n'a pas beaucoup d'effets.
>
> Bernard
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Salut,
> >
> > J'avais eu à un réaliser un truc comme ça il y a quelques années...
> >
> > J'avais définit à l'aide d'API les propriétés de l'imprimante avant d'imprimer (en ayant sauvegarder les anciens paramètres avant).
> >
> > Et ensuite, dès que j'avais terminé, je remettais les anciens paramètres à l'imprimante...
> >
> > Je ne connais pas les API par coeur, mais tu les trouverais sur allapi.net
> >
> > En espérant que cela puisse t'aider!
> >
> > ++
> >
> > [ XtOf ]
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > Bonjour à tous
> > >
> > > J'ai un petit problème à vous soumettre. A partir d'un programme VB, je dois imprimer des documents words. Jusque là, tout roule. Malheureusement, je dois maintenant, les imprimer en recto-verso. L'imprimante est capable de le faire automatiquement.
> > > Si je positionne dans windows, imprision recto-verso, tous les documents s'imprime correctement. Mais il ne faut l'imprimer que pour certains documents. Comment pouvoir changer cette option.
> > >
> > > Bien à vous
> > > Bernard
> >
>

Il y a une la propriete printer.Duplex qui détermine si une page est imprimée en recto-verso.