For Programmers: Free Programming Magazines  


Home > Archive > Clipper > March 2005 > USB Printer & NET USE with standalone XP PC









You are viewing an archived Text-only version of the thread. To view this thread in it's original format and/or if you want to reply to this thread please [click here]

 

Author USB Printer & NET USE with standalone XP PC
Rob

2005-02-21, 8:55 am

I've looked through google without any success
THE PROBLEM:
I have Windows XP with standalone PC and USB printer. To print with Clipper
I have tried this command:
NET USE LPT1: \\MyPc\MyUsbPrinter
but it fails with various error messages

QUESTION:
it works only when the PC is connected to a network ????
Any solution for standalone XP PC ?????
Thank you
Rob


Markus Wiederstein

2005-02-21, 8:55 am

Rob,

install Microsoft's dummy network device called
'MS Loopback Adapter'.

You find it if you 'add new hardware', network card
and choose microsoft as manufacturer.

Happy Dummy Niccing everyone ;-)

Markus



Am Mon, 21 Feb 2005 09:31:25 +0100 schrieb Rob <Roby@despammed.com>:

> I've looked through google without any success
> THE PROBLEM:
> I have Windows XP with standalone PC and USB printer. To print with
> Clipper
> I have tried this command:
> NET USE LPT1: \\MyPc\MyUsbPrinter
> but it fails with various error messages
>
> QUESTION:
> it works only when the PC is connected to a network ????
> Any solution for standalone XP PC ?????
> Thank you
> Rob
>
>




--
Erstellt mit Operas revolutionärem E-Mail-Modul: http://www.opera.com/m2/
Ross McKenzie

2005-02-21, 3:55 pm

On Mon, 21 Feb 2005 09:40:08 +0100, "Markus Wiederstein"
<markus.wiederstein-n-o-s-p-a-m@web.de> wrote:

>Rob,
>
>install Microsoft's dummy network device called
>'MS Loopback Adapter'.
>
>You find it if you 'add new hardware', network card
>and choose microsoft as manufacturer.
>
>Happy Dummy Niccing everyone ;-)
>
>Markus


Markus,

But the Clipper application will not print correctly if the USB
printer is a "Windows-Only" printer, will it?


Regards,

Ross McKenzie
ValuSoft
Melbourne Australia

valusoft AT optushome DOT com DOT au

Please consider a donation through the Red Cross to our friends affected by the tsunamis.
Markus Wiederstein

2005-02-21, 3:55 pm

Am Mon, 21 Feb 2005 12:49:27 GMT schrieb Ross McKenzie
<NoJunk_valusoft@optushome.com.au>:

> Markus,
>
> But the Clipper application will not print correctly if the USB
> printer is a "Windows-Only" printer, will it?
>
> Regards,
> Ross McKenzie


Ross,

if it's a GDI Printer i'll not work, it must be a printer with it's
own processing unit.

For GDI Printers an external printmodul (See
<URL:http://www.dse.nl/%7Etmk/clipper/clpwinprint.htm> )
is needed. (or a self-made xHarbour program to handle the printout ;-)

Markus
Fred Zuckerman

2005-02-21, 3:55 pm

"Rob" <Roby@despammed.com> wrote in message
news:cvc63h$p1$1@area.cu.mi.it...
> I've looked through google without any success
> THE PROBLEM:
> I have Windows XP with standalone PC and USB printer. To print with

Clipper
> I have tried this command:
> NET USE LPT1: \\MyPc\MyUsbPrinter
> but it fails with various error messages
>
> QUESTION:
> it works only when the PC is connected to a network ????
> Any solution for standalone XP PC ?????
> Thank you
> Rob
>

Another option that works for my clients that buy windows-only printers:

Mcmd = "c:\dbase\print\WORDPAD.EXE " + Pfile + " /p"
SWPRUNCMD (Mcmd)

Where pfile is the text file that I create for print jobs using the "Set
Printer To" command. And you can see that I copy the Wordpad.exe file to
their specific folder.

The only problem that I run across is that on some operating systems, after
the Wordpad application finishes my application does not restore. Instead my
application remains minimized on the task bar.

Good Luck,
Fred Zuckerman


Peter B. Steiger

2005-02-21, 8:55 pm

On Mon, 21 Feb 2005 15:59:38 +0000, Fred Zuckerman sez:
> Mcmd = "c:\dbase\print\WORDPAD.EXE " + Pfile + " /p"
> SWPRUNCMD (Mcmd)


That's flippin' brilliant, Fred, but are you limited to plain, unformatted
text that way? Unless you have some means of forcing the font to
monospaced you won't be able to line up columns in a tabular report.

--
Peter B. Steiger
Cheyenne, WY
If you must reply by email, you can reach me by placing zeroes
where you see stars: wypbs_**3 at bornagain.com.

Fred Zuckerman

2005-02-21, 8:55 pm

"Peter B. Steiger" <see.sig@for.email.address> wrote in message
news:pan.2005.02.21.22.56.29.593817@access4less.net...
> On Mon, 21 Feb 2005 15:59:38 +0000, Fred Zuckerman sez:
>
> That's flippin' brilliant, Fred, but are you limited to plain, unformatted
> text that way? Unless you have some means of forcing the font to
> monospaced you won't be able to line up columns in a tabular report.
>
> --
> Peter B. Steiger
> Cheyenne, WY
> If you must reply by email, you can reach me by placing zeroes
> where you see stars: wypbs_**3 at bornagain.com.


I believe that wordpad defaults to Courier New font (ie: fixed space). But
wordpad will remember page margins, so if your printjob uses narrow margins,
then you'll want to set them as such in wordpad.

Fred


Ross McKenzie

2005-02-24, 3:55 pm

On Mon, 21 Feb 2005 09:40:08 +0100, "Markus Wiederstein"
<markus.wiederstein-n-o-s-p-a-m@web.de> wrote:

>Rob,
>
>install Microsoft's dummy network device called
>'MS Loopback Adapter'.
>
>You find it if you 'add new hardware', network card
>and choose microsoft as manufacturer.
>
>Happy Dummy Niccing everyone ;-)
>
>Markus


Markus,

But the Clipper application will not print correctly if the USB
printer is a "Windows-Only" printer, will it?


Regards,

Ross McKenzie
ValuSoft
Melbourne Australia

valusoft AT optushome DOT com DOT au

Please consider a donation through the Red Cross to our friends affected by the tsunamis.
Peter B. Steiger

2005-02-24, 3:55 pm

On Mon, 21 Feb 2005 15:59:38 +0000, Fred Zuckerman sez:
> Mcmd = "c:\dbase\print\WORDPAD.EXE " + Pfile + " /p"
> SWPRUNCMD (Mcmd)


That's flippin' brilliant, Fred, but are you limited to plain, unformatted
text that way? Unless you have some means of forcing the font to
monospaced you won't be able to line up columns in a tabular report.

--
Peter B. Steiger
Cheyenne, WY
If you must reply by email, you can reach me by placing zeroes
where you see stars: wypbs_**3 at bornagain.com.

ktos

2005-02-27, 3:55 pm


Uzytkownik "Markus Wiederstein" <markus.wiederstein-n-o-s-p-a-m@web.de>
napisal w wiadomosci news:opsmjg06mfrgynrd@p4p800xp.intern...[color=darkred]
> Rob,
>

xHarbour and PRINTFILERAW() command:

Clipper:

set printer to cFileName
....
....
....
set printer to
swpruncdm('print_f &cFileName...........)
-------------------------------


print_f.prg compiled and linked with xharbour to print_f.exe:

Procedure Main()
parameters cFileName,cDocName

aPrinter:=GetPrinters()
IF EMPTY(aPrinter)
? '----- No printers----'
return (nil)
endif

il_print := LEN(aPrinter)

if il_print > 1
if il_print > 13
il_print := 13
endif
scr = savescreen(7,15,24,78)
msetcursor(.T.)
SET( _SET_EVENTMASK, 159 )
@ 7,15 clear to 11+il_print,65
@ 7,15 to 11+il_print,65 double
@ 8,16 say "Choice a printer:"
for ii = 1 to il_print
kk = aPrinter[ii]
if len(kk) < 49
ll = padc(kk,49)
else
ll = kk
endif
@ 10+ii,16 prompt ll
next
menu to jj
restscreen(7,15,24,78,scr)
if lastkey() = 27.or.jj < 1
return (nil)
endif
cPrinter := aPrinter[jj]
else
cPrinter := aPrinter[1]
endif
PRINTFILERAW( cPrinter, cFileName, cDocName)
return (nil)
*



alvaro valdenebro

2005-02-27, 8:55 pm

You can use Vouch.lib.- It`s free and wonderful for Clipper.

Regards.

Alvaro
ktos

2005-03-03, 3:55 am


Uzytkownik "Markus Wiederstein" <markus.wiederstein-n-o-s-p-a-m@web.de>
napisal w wiadomosci news:opsmjg06mfrgynrd@p4p800xp.intern...[color=darkred]
> Rob,
>

xHarbour and PRINTFILERAW() command:

Clipper:

set printer to cFileName
....
....
....
set printer to
swpruncdm('print_f &cFileName...........)
-------------------------------


print_f.prg compiled and linked with xharbour to print_f.exe:

Procedure Main()
parameters cFileName,cDocName

aPrinter:=GetPrinters()
IF EMPTY(aPrinter)
? '----- No printers----'
return (nil)
endif

il_print := LEN(aPrinter)

if il_print > 1
if il_print > 13
il_print := 13
endif
scr = savescreen(7,15,24,78)
msetcursor(.T.)
SET( _SET_EVENTMASK, 159 )
@ 7,15 clear to 11+il_print,65
@ 7,15 to 11+il_print,65 double
@ 8,16 say "Choice a printer:"
for ii = 1 to il_print
kk = aPrinter[ii]
if len(kk) < 49
ll = padc(kk,49)
else
ll = kk
endif
@ 10+ii,16 prompt ll
next
menu to jj
restscreen(7,15,24,78,scr)
if lastkey() = 27.or.jj < 1
return (nil)
endif
cPrinter := aPrinter[jj]
else
cPrinter := aPrinter[1]
endif
PRINTFILERAW( cPrinter, cFileName, cDocName)
return (nil)
*



Sponsored Links







Also available: Server administration forum archive | Web Design forum archive | Software forum archive | Hardware reviews archive

Copyright 2008 codecomments.com