Bonjour a tous,

J'ai presentement un problem avec le common dialog showprinter. Voila j'essaye de choisir l'imprimante sur laquelle je veux imprimer sans toute fois modifier l'imprimante par defaut. J'ai donc setter la propriété PrinterDefault = False. Cepandant je ne sais pas comment recupérer l'imprimante selectionnée dans le common dialog... Quelqu'un peut m'aider svp?

---

  zen69 aka Ortho Le Profett
  [site web]

Voici ce que j'ai jusqu'a maintenant:

Private Sub cmdPrint_Click()
    Dim qty As Integer, i As Integer
    Dim pFont As String
    Dim pFontSize As Single
    Dim pLines() As String
       
    On Error GoTo Err_Handler
   
    With adoTransfer
        .CommandType = adCmdText
        .RecordSource = "SELECT RTRIM(ITEMNMBR) AS ITEMNMBR, SUM(TRXQTY) AS TRXQTY FROM [MS-SERVER].M0851.dbo.IV10001 WHERE IVDOCNBR='TR" & txtTrNb.Text & "' GROUP BY RTRIM(ITEMNMBR) ORDER BY RTRIM(ITEMNMBR)"
        .Refresh
        With .Recordset
            If .RecordCount = 0 Then
                MsgBox "Transfert vide ou inexistant."
                Exit Sub
            End If
            If Not .EOF And Not .BOF Then
                .MoveFirst
            Else
                MsgBox "Transfert vide ou inexistant."
                Exit Sub
            End If
        End With
    End With

    txtPrint.Text = m0851 & vbCrLf & "Date : " & Format(Now, "yyyy-mm-dd") & vbCrLf & lineSep & vbCrLf
    With adoTransfer.Recordset
        Do While Not .EOF And Not .BOF
            DoEvents
            txtPrint.Text = txtPrint.Text & .Fields("ITEMNMBR").Value & String$(2, vbTab) & .Fields("TRXQTY").Value & vbCrLf
            qty = qty + .Fields("TRXQTY").Value
            .MoveNext
        Loop
    End With
    txtPrint.Text = txtPrint.Text & vbCrLf & lineSep & "Total : " & qty & " item(s)."
   
    comDiag.Flags = &H80000 + &H8 + &H4 + &H100000
    comDiag.PrinterDefault = False
    comDiag.ShowPrinter
       
    pLines = Split(txtPrint.Text, vbCrLf)
       
    With Printer
        .TrackDefault = False
       
        pFont = .font
        pFontSize = .fontSize
        .font = "ms sans serif"
        .fontSize = 10
        For i = LBound(pLines) To UBound(pLines)
            Printer.Print pLines(i)
        Next i
        '.EndDoc
        .font = pFont
        .fontSize = pFontSize
    End With
   
    Exit Sub
Err_Handler:
    MsgBox Err.Description, vbExclamation, Err.Number
    Exit Sub
End Sub

---

  zen69 aka Ortho Le Profett
  [site web]

Un peu d'aide serait grandement apprécié

---

  zen69 aka Ortho Le Profett
  [site web]

Salut je rencontre le même problème que toi sauf que si je reprend ton code je n'arrive pas a la faire fonctionner chez moi
exemple:

CommonDialog1.Flags = cdlPDReturnDC
CommonDialog1.PrinterDefault = False
CommonDialog1.ShowPrinter
Printer.TrackDefault = False
Printer.ScaleMode = vbMillimeters
Printer.CurrentX = 5
Printer.CurrentY = 5
Printer.FontSize = 12
Printer.FontBold = False
Printer.FontItalic = False
Printer.ForeColor = vbBlack
Printer.Print "Date Impression: " & Now & "     Chambre: " & Chambre
FormBase.MSChart1.EditCopy
Printer.PaintPicture Clipboard.GetData, Printer.CurrentX, Printer.CurrentY
Printer.EndDoc

Mais le document sort toujours sur l'imprimante par défaut et pas sur celle choisi avec CommonDialog1

Une piste?