Configuration imprimante

Question

Mon probl&#232;me est le suivant :
   dans un module j'ai cr&#233;er une proc&#233;dure d'impression utilisant l'objet "Printer". Avant l'appel de cette proc&#232;dure je lance un commondialog en showprinter. L'impression est imp&#233;cable, seulement voila je ne parvient pas &#224; utiliser les param&#233;trages de la commondialog. Mon code ressemble &#224; &#231;a :
   Public sub Imprimer_Click()
          With dlgCommonDialog
           .DialogTitle = "Imprimer"
           .CancelError = True
           .Flags = cdlPDReturnDC + cdlPDNoPageNums
           .ShowPrinter
        If Err <> MSComDlg.cdlCancel Then
           Call Module.ProcedureImpression(.hDC)
        End If
       End With
   End Sub

   Public ProcedureImpression(ByVal iHDC as Long)
         set Printer=iHDC
         Printer.Print .....
         Printer.EndDoc
   End Sub

Mais rien &#224; faire, si l'impression se d&#233;roule bien, en revanche elle se fera toujours selon les param&#232;tres par d&#233;faut, donc pas moyen de changer (par CommonDialog) la qualit&#233; d'impression par exemple.
Aidez moi SVP !!!!

cs_DARKSIDIOUS · Answer

Il y a un truc qui me choque dans ton code :



Public ProcedureImpression(ByVal iHDC as Long)

         set Printer=iHDC

         Printer.Print .....

         Printer.EndDoc

   End Sub


Tu n'as pas d'erreur sur cette ligne ???



Car tu intancie un objet (qui est global &#224; VB6 !!!) avec un Long !



Je te conseille plut&#244;t de faire :

Public ProcedureImpression(ByRef oPrinter As Object)


         oPrinter.Print .....


         oPrinter.EndDoc

End Sub


_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais :www.ProgOtoP.com/popapi/

cs_alantha · Answer

tout d'abord merci et bravo pour la rapidit&#233; de la r&#233;ponse, lol
a dire vrai non je n'ai pas d'erreur sur cette ligne telle que je l'ai &#233;crite, en revanche en passant j'en ai une en passant l'objet printer en argument (p-e je m'exprime mal)
j'ai un reel souci lors de l'appel de la prod&#233;cure :

cs_alantha · Answer

oups ma r&#233;ponse a &#233;t&#233; tronqu&#233;e, sorry

je reprend en d&#233;clarant la proc&#233;dure avec "oPrinter as Object" , je ne peux l'appeler par : Module.ProcedureImpression(CommonDialog.hDC) car il y une erreur "Type incompatible" ce ki en soit &#233; logik

jpleroisse · Answer

Bonsoir,
Essaie ce code.

Private Sub Command1_Click()
   Dim BeginPage, EndPage, NumCopies, Orientation
   ' Affecte la valeur True &#224; la propri&#233;t&#233;
   ' CancelError.
   With CommonDialog1
   .CancelError = True
   .Flags = &H1&
   .PrinterDefault = True 'Autorise la modification des param&#232;tres par d&#233;fault
   End With
   On Error GoTo ErrHandler
   ' Affiche la bo&#238;te de dialogue Impression.
   CommonDialog1.ShowPrinter
   ' R&#233;cup&#232;re les valeurs s&#233;lectionn&#233;es par
   ' l'utilisateur dans la bo&#238;te de dialogue.
   BeginPage = CommonDialog1.FromPage
   EndPage = CommonDialog1.ToPage
   NumCopies = CommonDialog1.Copies
   Orientation = CommonDialog1.Orientation
   
   ErrHandler:
   ' L'utilisateur a choisi le bouton Annuler.
   Exit Sub
End Sub

cs_alantha · Answer

donc grosso modo il faut ke je r&#233;cup&#232;re un a un TOUS les param&#232;tres du commondialog !!! ok admettons, mais je ne connais mm pas tous les param&#232;tres de la boite de dialogue...????

ShareVB · Answer

salut,



http://www.vbfrance.com/code.aspx?ID=8425

ShareVB

Configuration imprimante

6 réponses

Discussions similaires