Tengo un botón para imprimr una consulta de una tabla de la base de datos, abro el cuadro de dialogo para la impresora, pero no puedo cambiar de impresora, siempre imprime con la primera que viene en la lista.
como se obtiene la impresora seleccionada en un commondialog y el estilo del documento (si se imprime a una cara, a doble cara, etc ,etc)?
este es el código que tengo para la impresión:
Private Sub BTImprimir_Click()
Dim rss As Recordset
Dim cadim As String
CommonDialog1.CancelError = True
On Error GoTo RutErr
CommonDialog1.Flags = cdlPDPrintSetup
CommonDialog1.ShowPrinter
Set Printer = Printers(0)
Printer.Orientation = CommonDialog1.Orientation
RsFre = "SELECT * from tabla order by clave"
Set rss = miBD.OpenRecordset(RsFre)
If rss.RecordCount > 0 Then
rss.MoveLast
rss.MoveFirst
Do While Not rss.EOF
cadim = rss!Clave & " - " & rss!Descrip
Printer.Print cadim
rss.MoveNext
Loop
Printer.EndDoc
End If
RutErr:
Exit Sub
End Sub
Espero me puedan ayudar, gracias
