ASK - Printing method error. What's wrong with the code? Help me. please

Question

0.00/5 (No votes)

See more:

I have two projects using VB6 each. In the first project I use the following code and it works perfectly

VB

Dim PRN As Object
Set PRN = Printer
    PRN.FontBold = True
    PRN.CurrentX = 800: PRN.CurrentY = 1100
    PRN.FontSize = "10": PRN.Font = "Arial"
    PRN.Print "Your account is : " & strAccount 'Variable for user' account
    PRN.EndDoc

The second project is almost the same as the first project. I'm so confused for it results an error message : Compile Error.. Method or data member not found
Here is the code

VB

Dim P As Object
Set P = Printer
        P.FontSize = 11
        P.Font = "Arial"
        P.CurrentY = 1000: .CurrentX = 1000
        P.Print "Note: " & sNota 'Variable for Note
        P.EndDoc

These two codes are in different project. I've tried to find the answer in the internet but I failed. Can anybody help me?

Posted 7-Jul-11 6:10am

adadero

Add a Solution

Comments

OriginalGriff 7-Jul-11 12:18pm

Answer updated

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

OriginalGriff · Answer 1 · 2011-07-07T06:16:00

Solution 1

Try taking the "& sNota" part off and see if it compiles - it may be that you have misspelled it!

Alternatively, add a "P" in front of ".CurrentX":

P.CurrentY = 1000: .CurrentX = 1000

Becomes

P.CurrentY = 1000: P.CurrentX = 1000

[edit]Only noticed the "P" missing a bit late...[/edit]

Posted 7-Jul-11 6:16am

OriginalGriff

Updated 7-Jul-11 6:18am

v2

Comments

adadero 7-Jul-11 12:25pm

I have tried that and still error. I've tried to change P to PRN as shown in the first project and still error. It should result no error, isn't it?

fjdiewornncalwe 7-Jul-11 12:32pm

Definitely the first thing to try. (The missing P)... +5

adadero 7-Jul-11 12:43pm

The following code is working.

Collapse

Printer.Font = "Arial": Printer.FontSize = 11
Printer.CurrentX = 1000: Printer.CurrentY = 1000
Printer.Print "Note " & sNota

So, is this the problem?
Collapse

Dim P As Object
Set P = Printer

adadero · Answer 2 · 2011-07-07T06:42:00

Solution 2

The following code is working.

VB

Printer.Font = "Arial": Printer.FontSize = 11
Printer.CurrentX = 1000: Printer.CurrentY = 1000
Printer.Print "Note " & sNota

So, is this the problem?

VB

Dim P As Object
Set P = Printer

Posted 7-Jul-11 6:42am

adadero