Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Dosbase custom paper printing
Message
From
08/03/2007 20:20:27
Arjun Bagojikop
Dynamic Super Software
Sangli, India
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Reports & Report designer
Title:
Dosbase custom paper printing
Environment versions
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP SP2
Network:
Windows XP
Database:
MS SQL Server
Miscellaneous
Thread ID:
01202166
Message ID:
01202166
Views:
59
Hi All
i am using vfp9+sql2000+fox2.5
i am designing forms in vfp9 with sql2000 database and i have designing reports in dosbase fox2.5 because my users like to fastest printing, so that i have useing dosbase fox2.5 . in that case i have successfull but i have some problem of page length, i have designed 9 inch (page length =54) report.before in dos at that time i was using set pdsetup command but it does not work in vfp9. i know so that i have put page setup command at the 1st line of page header
LIKE chr(27)+chr(64)+chr(27)+chr(67)+chr(0)+chr(12)+chr(27)+chr(80)+chr(27)+chr(53)+chr(27)+chr(72)+chr(27)+chr(48)+chr(27)+chr(67)+chr(48)
It is working until page length=48 if i set page length >48 automatic page eject but i want to stop printer after 54. then where i am wrong so please help me.
and how can i find the printer sharename
because if printer name and sharename are diffrance not going text on shared printer if these are same it is working but users are missing. they dont care
when i want to get dosbase printing i am using as below command
txtname=Sys(2023)+'\'+Sys(2015)+'.txt'
Cprintername=Getprinter()

Declare Integer CopyFile In KERNEL32.Dll ;
STRING @SourceFileName, ;
STRING @DestFileName, ;
INTEGER bFailIfExists


SELECT WHgpprint
Report FORM gpass1 To File &txtname Ascii NOCONSOLE NOPAGEEJECT
* MODIFY FILE &txtname
If CopyFile(TXTNAME,Cprintername,0) = 0
    Messagebox('Printer Not Ready',16,'Print Info')

Endif
i also known about aprinter() but there i found only printer name not sharename
Reply
Map
View

Click here to load this message in the networking platform