När jag kör följande lilla testprogram får jag ingen träff på
det första villkoret, att en item i Printers är Printer.
Och i den andra testen får jag min msgbox för Printer.ScaleX,
men på den andra får jag felmeddelande
"Object doesn't support this property or method"
Varför blir det så?
Vad är det egentligen som finns i Printers?
Eller gör jag något fel?
Hur skall jag kunna hitta en printer som INTE är den aktuella
Printer och hämta uppgifter om den? (Utan att ändra aktuell
systemprinter)

- Hans

Oj!! Jag glömde själva koden !!!

Sub Main()
Dim p As Printer

For Each p In Printers
If p Is Printer Then
MsgBox "Hittade " & p.DeviceName
End If
Next

For Each p In Printers
If p.DeviceName = Printer.DeviceName Then
MsgBox "Printer ScaleX " & Str(Printer.ScaleX(100, 1, 6))
MsgBox "p ScaleX " & Str(p.ScaleX(100, 1, 6))
End If
Next

End Sub