Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Printing Text from Excel Automation
Sub Macro5()
Dim ctrl as Long Dim tmpstr as String Open "LPT1:" For Output As #1 Print #1, "[Start of Printing Test]" For ctrl = 1 To 10 tmpstr = "Printing Line " + Str(ctrl) Print #1, tmpstr Next tmpstr = "[End of printing test]" + Chr(12) Print #1, tmpstr Close #1 End Sub Change LPT1 to the device name you are trying to print to. -- Regards, Tom Ogilvy "RonF" wrote in message ... I want to send a string of test to the printer while running in excel automation. The only way I've found to to this is first put the text in an unused cell, select the cell and then print the cell using selection.printout. Does anyone know of a more direct way? -- Thanks RonF -- Thanks RonF |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
excel extended text printing | Excel Discussion (Misc queries) | |||
printing automation | Excel Discussion (Misc queries) | |||
Visio Text (Number) Automation | Excel Discussion (Misc queries) | |||
When printing using Excel the text does not fit in the cell | Excel Discussion (Misc queries) | |||
Retrieving text being typed and cursor position using VBA or automation, how? | Excel Programming |