Public Function SelectPrinter(ByVal PrinterName As String) As Boolean
Dim prThis As Printer
If Printers.Count > 0 Then
For Each prThis In Printers
If prThis.DeviceName = PrinterName Then
Set Printer = prThis
SelectPrinter = True
So By reading the Printer.DeviceName should be the Selected Printer
Public Function MySelectedPrinter() As String
MySelectedPrinter = Printer.DeviceName
For the to work you will have to read the current select printer first and change it to what ever then chnage back to what it was
hope this help
See clear as mud
the aim is store once, not store multiple times
Remember... Optimize 'til you die!
Progaming environment: Access based on my own environment: DAO3.6/A97/A2000/A2003/A2007/A2010 VB based on my own environment: vb6 sp5 ASP based on my own environment: 5.6 VB-NET based on my own environment started 2007 SQL-2005 based on my own environment started 2008 MYLE YOUR PASSWORD IS JUST LIKE YOUR TOOTHBRUSH DON'T SHARE IT.