Xprint Copies problem

[Reinhard Böck]

Hi from austria,

i have now tried for hours to use copies with my printer driver; but it was not possible to use ths feature. Here my code:

DIM Co&

XPRINT ATTACH DEFAULT
XPRINT SET COPIES 4
XPRINT GET COPIES TO Co&

XPRINT CLOSE

When i debug this code, i always get 0 in Co&; i tried many different printer drivers, which are able to produce copies in other languages.
Any ideas?

Thanks from austria!

[Rodney Hicks]

I changed the '4' to '2' just so I wouldn't waste too much paper, and the following works. It does not work if the line "XPRINT stuff" is commented out.

#COMPILE EXE
#DIM ALL

FUNCTION PBMAIN () AS LONG
  DIM Co&
  LOCAL stuff AS STRING
  stuff= "Well what do you know?"
  XPRINT ATTACH DEFAULT
  XPRINT SET COPIES 2
  XPRINT GET COPIES TO Co&
  XPRINT stuff
  XPRINT CLOSE
    

END FUNCTION

XPRINT SET COPIES and XPRINT GET COPIES TO Co& will not do anything until it has something to print.

[Rodney Hicks]

I also tried the following, because Co& still equaled 0 even though it printed the correct number of copies. And it still equals 0 in this case as well, but does indeed print four copies.

#COMPILE EXE
#DIM ALL
FUNCTION PBMAIN () AS LONG
  LOCAL Co,du AS LONG
  LOCAL stuff AS STRING
  du=4
  stuff= "Well what do you know?"
  XPRINT ATTACH DEFAULT
  XPRINT SET COPIES du
  XPRINT GET COPIES TO Co
  XPRINT stuff;Co;du
  XPRINT CLOSE
  PRINT Co;du
  WAITKEY$

END FUNCTION

Perhaps PB support could explain this if you sent it in.

[Reinhard Böck]

Thanks for your help; how can i check, if the customers printer driver supports copies?
If there is no possibility i have to make the copies per code and this command makes no sense.
Greetings from an austrian wine- and softwaremaker!
Reinhard Böck

[Arthur Gomide]

Change

XPRINT ATTACH DEFAULT

to

XPRINT ATTACH CHOOSE

and see the copy options in Windows print dialog, like below

#COMPILE EXE
#DIM ALL

FUNCTION PBMAIN () AS LONG

    LOCAL Co, Cc AS LONG

    ERRCLEAR
    Co = 1000
    XPRINT ATTACH CHOOSE'DEFAULT
    IF ERR = 0 AND LEN(XPRINT$) > 0 THEN
        XPRINT SET COPIES Co
        IF ERR = 5 THEN
            ? "Multiple copies (or count requested) are not supported by this printer driver!",,"Xprint Set Error"
            XPRINT CLOSE
            EXIT FUNCTION
        END IF
        XPRINT GET COPIES TO Cc
        IF Cc = Co THEN
            ? "Done! Copy count set to" & STR$(Cc),,"Good Driver for " & XPRINT$
        ELSE
            ? "Count requested are not supported by this printer driver!",,"Xprint Get Error"
        END IF
    END IF

    XPRINT CLOSE

END FUNCTION

Edited: Try using the most generic printer driver

[Reinhard Böck]

Thanks for your help,

i have installed more than 15 different types of printer, some virtual etc.
I get different results with error 5, but all drivers sets 0 to Cc after using
XPRINT GET COPIES TO Cc.
In the help file you will find "The default value is one (1)", but i always get 0!
With other tools (Vb6 and Componentone VsPrint) i am able to set and read back a value for Copies from the printer driver.
Did you find a printer driver, which reported another value then 0 in Cc?

Greetings
Reinhard Böck

[Rodney Hicks]

Like you Reinhard, I could not get any other value other than 0 with XPRINT GET COPIES TO somevariable. I think the best bet would be to send a request for clarification in to support at:[email protected]
If an answer is forthcoming, it would be nice if it were posted here to assist others should they encounter this issue in the future.

[Reinhard Böck]

first answer from support

This appears to be an issue in the compiler. R&D is looking into this now, if this is found to be an issue in the compiler an update will be available in the near future.

[Rodney Hicks]

Thanks Reinhard!