Print String from VBA

[Guest]

I made a piece of VBA code which results in a string. The next step is to
print this string on paper.

How can I print a string directly from the VBA programm (without first
output it to a cell for example).

Thanks in advance,

JeroenM.

 

[Jim Cone]

Add the text to an empty cell, print, clear the cell.
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)



"JeroenM"
wrote in message
I made a piece of VBA code which results in a string. The next step is to
print this string on paper.

How can I print a string directly from the VBA programm (without first
output it to a cell for example).
Thanks in advance,
JeroenM.

 

[Dave Peterson]

Maybe something like:

Option Explicit
Sub testme01()
Open "LPT1:" For Output As #1
Print #1, "Hi There"
Close #1
End Sub

 

[Guest]

I'm using a network printer, how can I address it?

Thanks, JeroenM.

 

[Dave Peterson]

Maybe you can install it as LPT1?

or

Open "\\printerid" for output as #1

(untested, I don't have a network printer)

 

[Dave Peterson]

But I'd do what Jim suggested:

dim NewWks as worksheet
set newwks = workbooks.add(1).worksheets(1)
with newwks.range("a1")
.value = yourvariablenamehere
.printout
.parent.parent.close savechanges:=false
end with

 

[Guest]

It works, thanks, JeroenM

Maybe you can install it as LPT1?

or

Open "\\printerid" for output as #1

(untested, I don't have a network printer)

 

[Dave Peterson]

Which one?

It works, thanks, JeroenM

Maybe you can install it as LPT1?

or

Open "\\printerid" for output as #1

(untested, I don't have a network printer)

 

[Don Guillett]

Dave,
I wanted to see if this worked but my color laser is on usb
DOT4_001
I tried all variations of that I could think of

 

[Dave Peterson]

I've used this in the past when I installed a network printer (at work, under
WinNT, IIRC). I assigned that network printer to lpt1.

I _think_ I used it in Win98 at home. But I couldn't get it to work with WinXP
Home and my HP Officejet USB printer.

I don't have a printer that connects via LPT1 at home, though.