Ok, ho scritto quanto segue nel codice di una maschera chiamata GestioneStampanti :
Private Sub ElencoReport_Click()
If Not IsNull(ElencoReport) And ElencoReport <> "" Then
DoCmd.OpenReport ElencoReport, acViewPreview ' use acNormal to print without preview
Else
MsgBox ("Devi prima selezionare un report!")
ElencoReport.SetFocus
End If
ElencoReport = ""
End Sub
Private Sub Form_Open(Cancel As Integer)
Dim prtloop As Printer
Me!ElencoStampanti.RowSource = ""
For Each prtloop In Application.Printers
Me!ElencoStampanti.AddItem prtloop.DeviceName
Next prtloop
End Sub
Attualmente quindi ho due combo una con la lista delle stampanti
e una con la lista dei report che se clicco mi viene aperto in anteprima.
Ora mi manca riuscire ad associare in modo permanente il report alla stampante.
Immagino che dovrò inserire un tasto nella maschera a cui associo il codice che gli dice associa stampante della combo1 a report della combo2 (ovviamente il codice che mi apre l'anteprima del report lo rimuoverò o posso anche lasciarlo a scopo di controllo.