Specifieke printer selecteren

[remmie63]

Ik heb een bestel db gemaakt. Het bestelformulier wordt via:

Private Sub Knop32_Click()
On Error GoTo Foutje

Dim stDocName As String

'procedure print afhankelijk van de invoer het juiste rapport

If Me.Form_selectie_producten![Leverancier] = "Magazijn" = True Then
     stDocName = "Bestelfax interne leverancier"
Else
     stDocName = "Bestelfax externe leverancier"
End If
     DoCmd.OpenReport stDocName, acNormal

Exit Sub

Foutje:
MsgBox Err.Description

naar de standaardprinter gestuurd. Hoe kan ik deze aanpassen zodat ik een printer kan selecteren?
Alvast dank!

 

[OctaFish]

Ik vind dit een rare regel:

If Me.Form_selectie_producten![Leverancier] = "Magazijn" = True Then

Is toch hetzelfde als:

If Me.Leverancier = "Magazijn" Then

En een printer kun je alleen selecteren als je de letterlijke naam weet; je kunt de collectie met een ingewikkelde truc nog wel uitlezen, maar het is veel handiger als je zelf de namen in een Array zet en die aan een keuzelijst koppelt.

 

[remmie63]

Oke, duidelijk! Heb je een voorbeeld van een Array die ik hier kan invoegen? Het hoeft niet eens een selectie van printers te zijn als ik maar één specifieke printer kan specificeren want de standaardprinter is geen optie.