BASIC runtime error.

[anhqn1994]

Hello, I insert this into my excel and it seem doesn't run, but it run well on other Excel on other machine:

Sub tenmayin()
Dim Printer As String

bOK = Application.Dialogs(xlDialogPrinterSetup).show
     If bOK = False Then Exit Sub
Printer = InputBox("Copy ten may in:", "TEN MAY IN", Application.ActivePrinter)

End Sub

Any solutions for this error.
Thank everyone so much ^^

 

[Fluff]

I insert this into my excel

Except the image you are showing is OpenOffice, not Excel. So which are you trying to use?

 

[jkpieterse]

Looks like you are trying to run Excel VBA code in Open Office?

 

[anhqn1994]

Yes I am using OpenOffice and I am trying to get all printer on my Machine, and copy the name of the printer I have selected,

 

[anhqn1994]

Except the image you are showing is OpenOffice, not Excel. So which are you trying to use?

I want get list of printer and can copy the name of printer I want to use for other VBA code, that work well on OpenOffice any solution for me sir?

 

[Fluff]

As this is not an Excel question it should have been posted in the General Discussion & Other Applications section of the board.
I have moved it for you this time.