Huidige record via een rapport afdrukken.

[malawi]

Hallo

Ik wil de huidige record via een rapport afdrukken.
Dit gaat goed. Druk rechtstreeks af naar mijn voorkeursprinter.

Alleen dit is niet de printer waar het het naar toe wil hebben. Hoe kan ik onderstaande aanpassen zodat ik zelf de printer kan kiezen?
Private Sub Verwijderen_Click()
On Error GoTo Err_Command101_Click
Dim sFilter As String, stDocName As String
stDocName = "Rapaanvraag"
sFilter = "Idaanvraag=" & Me.Idaanvraag
DoCmd.OpenReport stDocName, , sFilter
Exit Sub
Err_Command101_Click:
MsgBox Err.Description
End Sub

Bij voorbaat dank,

Ewald

 

[OctaFish]

Zelf de printer kiezen? Dan zul je die met de volledige namen in een keuzelijst moeten zetten, en tijdelijk als actieve printer instellen. Overigens onthoudt Access de printer die aan een rapport is gekoppeld, dus vermoedelijk moet je het rapport dan eerst in Design modus openen, dan de printer instellen, rapport opslaan, afdrukken, rapport weer openen, vorige printer herstellen en dan weer opslaan. Als je dat er voor over hebt, is het wel te doen.
Het aanpassen van de printer in het rapport is overigens niet nodig als je naar de Default printer stuurt. Al moet je dan natuurlijk nooit een printer vastleggen in een rapport.