[AccessD] Printer selection

Here are some shorter ones

Max



Function fWhichIsDefaultPtr()
  Dim prtDefault As Printer
  Set Application.Printer = Application.Printers(0)
  Set prtDefault = Application.Printer
  With prtDefault
    MsgBox "Device name: " & .DeviceName & vbCr _
         & "Driver name: " & .DriverName & vbCr _
         & "Port: " & .Port
  End With
End Function

Function fShowAllPtrs()
  Dim prtLoop As Printer
  For Each prtLoop In Application.Printers
    With prtLoop
      MsgBox "Device name: " & .DeviceName & vbCr _
           & "Driver name: " & .DriverName & vbCr _
           & "Port: " & .Port

    End With
  Next prtLoop
  'Forms("Purchase Orders").LayoutForPrint = False

End Function



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Arthur Fuller
Sent: 11 January 2010 14:54
To: Access Developers discussion and problem solving
Subject: [AccessD] Printer selection

How do I specify which printer to send a report to? Most of the reports in
this app go to one printer, but some of them are intended to become Acrobat
files. How do I tell Access that these reports are destined for the Acrobat
virtual printer?

TIA,
Arthur
-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com