Hej Pellesoftare kan ni hjälpa mig med detta
Jag vill kunna rita en linje på ett formulär eller på printer
idag skriver jag
frmopp.Line ..... respektive printer.Line ......
kan jag skriva xxxx.Line .... däe xxxx styr till formulär eller till printer
Hoppas att ni fattar

MVH
Lurvas

Det går om du använder Late Bindings:
<code>
Dim xxxx As Object

Set xxxx = Me
'Set xxxx = Printer

xxxx.Line (xxxx.ScaleX(1, vbCentimeters), xxxx.ScaleY(1, vbCentimeters))-Step(xxxx.ScaleX(1, vbCentimeters), xxxx.ScaleY(1, vbCentimeters))
</code>
Men detta är inte att rekomendera. Skapa istället två funktioner. En för formulär:
<code>
Public Sub DoForm(xxxx As Form)
xxxx.Line (xxxx.ScaleX(1, vbCentimeters), xxxx.ScaleY(1, vbCentimeters))-Step(xxxx.ScaleX(1, vbCentimeters), xxxx.ScaleY(1, vbCentimeters))
End Sub
</code>
Och en för skrivare:
<code>
Public Sub DoForm(xxxx As Printer)
xxxx.Line (xxxx.ScaleX(1, vbCentimeters), xxxx.ScaleY(1, vbCentimeters))-Step(xxxx.ScaleX(1, vbCentimeters), xxxx.ScaleY(1, vbCentimeters))
End Sub
</code>