hej!

Jag har ett litet probem! När jag ställer in skrivaren för ett vb proggz så går det åt enormt mycket papper! Jag skulle du vilja ha något som "kopilerar" koden på något sätt!

ex.
Printer.DrawWidth = 4
Printer.Line (6380, 5500)-(6650, 5770)
Printer.Line (6650, 5500)-(6380, 5770)

Så ska den ta den koden och vissa koden på något vitt=) Som jag då kan se var texten hamnar utan att skriva ut ett papper. Det vore väldigt smart!

Är det någon som har några funderingar elelr så så snälla SKRIV!

Tackar på förhan och ha en trevlig Jul!

//Robban

Placera en picturebox i ett formulär

Dim bolpreeview as Boolean
Dim obj as object

'Förhandsgranska utskrift
bolpreeview = true

if bolPreeview = true then
Picture1.ScaleMode = Printer.ScaleMode
Picture1.ScaleWidth = Printer.ScaleWidth
Picture1.ScaleHeight = Printer.ScaleHeight
set obj = picture1
else
set obj = printer
end if

obj.DrawWidth = 4
obj.Line (6380, 5500)-(6650, 5770)
obj.Line (6650, 5500)-(6380, 5770)

if bolpreeview = false then
obj.EndDoc
end if