This property returns the name of the device which the current printer driver supports.
DeviceName ( = strDeviceName As String ) As String
The string returned from this property is supplied by the driver for the printer which is currently selected.
To identify the current printer:
MsgBox "Current Printer is: " & Preview.DeviceName
Come and visit :