My Clipper App->Harbour and Printing in Windows 10

[dbo...@gmail.com]

What are best practices for handing printing from Harbour/DOS in Windows 10?

Mapping LPT1: seems 'old school'.  Can Harbour offer a better method?

Dave

[Gerald Drouillard]

We shell out and use the copy command for PCL and PS files depending on the printer.

The other way is make it a pdf and open it up for the user and they can choose where to print.

--
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
Unsubscribe: harbour-user...@googlegroups.com
Web: https://groups.google.com/group/harbour-users
---
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to harbour-user...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/29de1a67-758d-4f7b-b75d-da05ee3028f6n%40googlegroups.com.

[Itamar Lins]

Hi!

See samples into folder:
https://github.com/harbour/core/blob/master/contrib/hbwin/tests/prn1.prg

Best regards,

Itamar M. Lins Jr.

[Francesco Perillo]

Several...

Except for legal documents that must be printed, most other reports are read only and read once. 

So you can create excel files, or print to pdf, or create a xml/json/CVS...

How easy is it? It depends on how you are currently printing. My clipper printing routines created a full line of text in a var and then sent it to the printer. So it was quite easy to transform them into pdf.

A friend used to output cell by cell so he could easily add output to xls.

I read someone redirected output to a file (instead of lpt1) and used external tools to convert to pdf or other printers: imagine you print with embedded pcl codes  to a file and the tool reads the file and prints to any windows printer simulating a pcl printer...

[paul.smi...@gmail.com]

I'm not sure of best practice but what I've done successfully for years, is to code print files in PCL, if the printer will do PCL emulation, send it directly using the old school mapped shared printer.

If the printer does not support PCL then I convert it to a PDF with pcl to pdf for windows < https://mendelson.org/pcltopdf.html >,

which produces a PDF which I then print using pdf to printer < https://mendelson.org/pdftoprinter.html >

If using email I just convert it to a PDF and attach it to the email.

If I was starting from scratch I'd have a look at the pagescript library < https://www.pagescript32.com/ >

Cheers

Paul

[Klas Engwall]

Hi Dave,

> What are best practices for handing printing from Harbour/DOS in Windows 10?
> Mapping LPT1: seems 'old school'.  Can Harbour offer a better method?
> Dave

Several users have suggested printing to a file, complete with printer
commands in a page description language that the target printer
understands, and then using an external utility to dump that raw file to
the printer.

If the printer is installed in Windows, the external utility can be
eliminated, instead using the win_PrintFileRaw() function from the Hbwin
contrib to print the raw file via the WINAPI. Or the intermediate file
can also be eliminated using the win_PrintDataRaw() function to print
the entire complete raw page from a memory variable. It is also quite
easy to convert the latter function to the separate WINAPI functions it
uses and then print any number of pages, one by one, in one single print
job.

An entirely different solution, still using raw data as above, is to
print straight to a networked printer by specifying its IP-address as
printer name, for example "tcp:192.168.1.25:9100", to the fcreate()
function and then fwrite()ing to the print handle received. A little
more preparation than in the previous examples is required to make sure
the printer is available. But it is more reliable than the old NETBIOS
printing method.

Regards,
Klas

[fdaniele]

i had used all sistems: excel, word and rtf  but the qickly is the external program,

 write on a txt file,  add launch of a batch in exe  for dosprinter  ( https://www.dosprinter.net/ )

also demo mode is ok

my batch is:

dosprinter /rtf /IMAGE'filigrana.jpg, 1000,3000' /LEFT0 /CPIAUTO /PAGEA4 /FITA4 /F'Courier New' %1

print also pcl and epson codes  and lines semigraphics  , put a jpg in a precise position and create rtf, pdf and mail ... perfect

i hope is usefull

best regards

Daniele

[Otto Haldi]

Hello,
I used for many years xHarbour. For the output to a Printer I used with a lot of success https://www.pagescript32.com/
Regards
Otto

To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/CAC_Y%2BMAgL76ogj9awpdCh-ftGwv7QvE%3DZO%2BiTS4drCxW%3Di%2BPug%40mail.gmail.com.

[cod...@outlook.com]

I also vote for PageScript as best print library for Harbour.

Now it is free, but I used it from Clipper days. Forgot when I bought it.

I used PageScript to print on matrix printers and on laser printers.

Regards,

Simo.

[Guillermo Varona Silupú]

¿Algún ejemplo de cómo usar ésta librería en harbour?

¿Se pueden imprimir códigos QR?

 Gracias por sus respuestas.

GVARONAS

--
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
Unsubscribe: harbour-user...@googlegroups.com
Web: https://groups.google.com/group/harbour-users
---
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to harbour-user...@googlegroups.com.

To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/6f8cfb6c-67ce-41cd-ad4e-b70372c688fan%40googlegroups.com.

--

Atentamente,
Ing. Guillermo Varona Silupú
Piura - Perú

[cod...@outlook.com]

Hi Guillermo.

In this topic Otto Haldi gave us link to PageScript page (https://www.pagescript32.com/).

I did not used QR code with PageScript. Maybe somebody have and example using QR code with PageScript.

Here you can find other examples on printing QR code using some other libraries. 

Regards,

Simo.

[na richard roesnadi]

Using hbprinter minigui 

--
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
Unsubscribe: harbour-user...@googlegroups.com
Web: https://groups.google.com/group/harbour-users
---
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to harbour-user...@googlegroups.com.

To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/a747cf51-f805-4bbf-bde3-e92ac7b54e78n%40googlegroups.com.

[Itamar M. Lins Jr. Lins]

Hi!

I use HTML, It is simple and with open technology, several examples on the internet.

Best regards,
Itamar M. Lins Jr.

To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/CAE7sagsLqetd3%2BmSLfyaPVJwWFXwVCz-VV8dj-qNoZyHGiznWA%40mail.gmail.com.

[fdaniele]

to mr. Itamar:

give us the url/help, please, is very very interesting !!!!!  😯

Daniele

[poopall]

I agree use https://mendelson.org/pcltopdf.html. Most of my files where in PCL format so I could print to a PCL compatible printer, still use that as the print format, but use this command tile tool to convert PCL to a PDF

[Gerald Drouillard]

ghostpcl is what I use.

https://www.ghostscript.com/releases/gpcldnld.html

To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/6314380a-9b39-4abe-a81f-b81aa00464f6n%40googlegroups.com.

[Itamar Lins]

Hi!

cHtml := '<!DOCTYPE html><html><head>'
cHtml += '<link rel="stylesheet" type="text/css" href="/print.css" media="print" />'
cHtml += '<meta http-equiv="Content-Type" content="text/html;charset=iso-8859-1"/>'
cHtml += '<title>Orçamento</title>'
cHtml += '<style>'
cHtml += 'table,th,td{'
cHtml += ' FONT: 12pt "Courier New";'
cHtml += ' border: 1px solid #888;'
cHtml += ' border-collapse:collapse;'
cHtml += ' color:#000000;'
cHtml += ' table-layout: fixed; width: auto'
cHtml += '}'

cHtml += 'p.quebra { page-break-before: always }'
cHtml += 'ft.a { font: 14px Arial; font-weight: bold ; } '
cHtml += 'ft.b { font: 11px sans-serif; }'
cHtml += 'ft.c { font: 12px Arial; }'
cHtml += 'ft.d { font: 13px Arial; }'
cHtml += '.zebra tbody tr:nth-child(2n+2) { background: #ccc; } '
cHtml += '</style>'
cHtml += '</head><body><div align="center">'

cHtml += '<table cellpadding="1" cellspacing="1">'

cHtml += '<col width="150px"/>'
cHtml += '<col width="990px"/>'
cHtml += '<col width="260px"/>'

cHtml += '<tr>'
cHtml += '<td> <img src="./imagens/logoempresa.png" width="125" height="76" alt="Logo Empresa" > </td>'
cHtml += '<td align="center" style="font-family:verdana;font-weight:bold">' + em->empresa
cHtml += '<br> <ft class="b"> ' + AllTrim(em->endereco) + ", Nº " + em->numero + ", " + AllTrim(em->cidade) + "/" + em->uf
cHtml += '<br> Fone: ' + Transform(alltrim(em->telefone),'@R (99) 9999-9999')
cHtml += ' -- <img src="./imagens/whatsapp_.jpg" width="16" height="16" alt="Logo zap" > '
cHtml += Transform(alltrim(em->whatsapp),'@R (99) 99999-9999') + '</td>'
cHtml += '<td> <ft class="a"> Orçamento PDV: ' + StrZero(nPDV,3) + '</ft><br>' + str(day(dDia),2)+"/"+SubStr(CMonth(dDia),1,3)+'/'+str(year(dDia),4)+'<br>'+ampm(Transform(cHora,"@R 99:99:99"))
cHtml += '</td></tr></table>'

cHtml += '<table cellpadding="1" cellspacing="1">'

cHtml += '<col width="1000px"/>'
cHtml += '<col width="700px"/>'

cHtml += '<tr><td colspan=2> Cliente: ' + cCliente + '</td>'
cHtml += '<tr><td colspan=2> Vendedor: ' + pd->vendedor
cHtml += '</td></tr>'
cHtml += '</table>'

cHtml += '<table cellpadding="1" cellspacing="1" class="zebra">'
cHtml += '<col width="100px"/>'
cHtml += '<col width="780px"/>'
cHtml += '<col width="100px"/>'
cHtml += '<col width="100px"/>'
cHtml += '<col width="100px"/>'
cHtml += '<col width="100px"/>'
cHtml += '<col width="100px"/>'

cHtml += '<tr>'
cHtml += '<th> Código </th>'
cHtml += '<th> Descrição </th>'
cHtml += '<th> Qtd.Und. </th>'
cHtml += '<th> A VISTA </th>'
cHtml += '<th> TOTAL </th>'
cHtml += '<th> A PRAZO </th>'
cHtml += '<th> Total </th></tr>'

nTotAvista := 0; nTotAprazo := 0 //; nSemDesc:= 0; nDesconto := 0

Do WHILE pd->(!eof())

if eq->(DbSeek( pd->cod_mercad) )
else
hwg_Msginfo('Não Foi Encontrado no Estoque')
pd->(DbSkip())
loop
endif

cHtml += '<tr>'

cHtml += '<td><ft class="c">' + pd->cod_mercad + '</c></td>'
cHtml += '<td><ft class="d">' + pd->mercadoria + '</d></td>'

if es->(dbseek(eq->unidade))
if es->precisao = 0
cHtml += '<td align=right>' + Transform( pd->quantidade,'99,999,999')+ '</td>'
elseif es->precisao = 1
cHtml += '<td align=right>' + Transform( pd->quantidade,'9999,999.9')+ '</td>'
elseif es->precisao = 2
cHtml += '<td align=right>' + Transform( pd->quantidade,'999,999.99')+ '</td>'
elseif es->precisao = 3
cHtml += '<td align=right>' + Transform( pd->quantidade,'99,999.999')+ '</td>'
endif
else
cHtml += '<td align=right>'+transform( pd->quantidade,'99,999,999')+ '</td>'
endif

cHtml += '<td align=right>' + transform( pd->preco_unit,'@e 9999,999.99') + '</td>'
cHtml += '<td align=right>' + transform(Round( pd->quantidade* pd->preco_unit,2),'@e 9999,999.99')+'</td>'

cHtml += '<td align=right>' + transform(eq->prazo ,'@e 9999,999.99') + '</td>'
cHtml += '<td align=right>' + transform(Round(eq->prazo*pd->quantidade,2) ,'@e 9999,999.99') + '</td></tr>'

nTotAvista += Round(pd->quantidade*pd->preco_unit,2)
nTotAprazo += Round(pd->quantidade*eq->prazo,2)

pd->(dbskip())

EndDo

IF (nSemdesc-nTotal) > 0
cHtml += '<tr><td colspan=7> Total Sem Desconto: ' + Transform(nSemdesc,'@e 9999,999.99') + '</td></tr>'
cHtml += '<tr><td colspan=7> Desconto de: ' + Transform(nSemdesc-nTotal,'@e 9999,999.99') + '</td></tr>'
endif

cHtml += '<tr><td colspan=4> Total do Orçamento: ' + '<td align=right>' + Transform(nTotAvista-nDescTot,'@e 9999,999.99')+'</td>'
cHtml += '<td colspan=2 align=right>' + Transform(nTotAprazo,'@e 9999,999.99') + '</td></tr>'

cHtml += '</table>'
cHtml += '</div></body></html>'

hb_MemoWrit("orcamento.html",cHtml)


//With PDF ZEBRADO etc, etc... ALL the frills of these report generators! Images etc, etc, etc and of course etc!
HTML + CSS is the way!

//Icing on the cake!


IF !Empty(cEmail) //Send EMAIL PDF vapt, vupt! Via command line using CHROME to generate the PDF. It is located in the My Documents folder in Windows.
//VIA DOS use double quotes ' "\Program Files (x86)\Google\Chrome\Application\chrome.exe" ...'
//hb_MemoWrit("comando.bat", cComando)
cArq := hb_GetEnv("USERPROFILE") + "\Documents\" + 'orçamento_' + AllTrim(cEmail)+'.pdf'
cComando := '\Program Files (x86)\Google\Chrome\Application\chrome.exe --headless --disable-gpu --print-to-pdf="' + cArq + '" "' + cDirSist+'orcamento.html"'
hb_processRun( cComando,,@cStdOut,@cStdErr,.T. )
Email(cArq,cSubject,cBody,cEmail,cArq)
//hwg_msginfo(cStdOut)
//hwg_msginfo(cStdErr)
ENDIF
hwg_Shellexecute("orcamento.html","open",,cDirSist,1) //USE HB_PROCESSRUN if you don't use HWGUI!
Return .t.

Best regards,
Itamar M. Lins Jr.

[John Stoker]

HBWIN.hbc is a very useful library. There are good example programs. John

--
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
Unsubscribe: harbour-user...@googlegroups.com
Web: https://groups.google.com/group/harbour-users
---
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to harbour-user...@googlegroups.com.

To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/29de1a67-758d-4f7b-b75d-da05ee3028f6n%40googlegroups.com.

[Guillermo Varona Silupú]

Buen ejemplo para imprimir QR

Muchas Gracias.

Agradeceré algún ejemplo usando PageScrip, verifico que hay éstas versiones:

- Pagescript32 14.04.2023 - Version 4 update - Version 4.0.1.157

- Pscript32 version 3.0.4.124

Pero no he podido generar la Lib desde la carpeta de Harbour para este asunto (C:\hb32\extras\ps32), según como se indica en el archivo readme.txt.

Alguien ha podido generar la Lib?

o cual es el proceso de compilación en harbour para usar PageScript?

Gracias por su atención

GVARONAS

El jue, 4 abr 2024 a las 0:09, jparada (<sapomu...@gmail.com>) escribió:

Hola Guillermo, para imprimir código QR, a ver si ayuda
Print QR

Saludos,

Javier

To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/43944f5e-59d7-4fc6-afa9-3f948afa9858n%40googlegroups.com.

[fdaniele]

Thanks very much mr.  Itamar 

Daniele

[cod...@outlook.com]

Hi Guillermo

As I can remember, readme.txt file in C:\hb32\extras\ps32 describes fine what to do. In some earlier  Harbour versions folder was c:\harbour\examples\ps32.

I did steps in readme.txt long time ago. I did it after Harbour installation from source.

May be it is tricky step 3:

3.) Apply supplied patch to the source using GNU Patch:

    patch -lNi ps32.patch    (parameter is lower letter el, upper letter N and lower letter ai)

I am sending you PATCH.EXE I used. File I am sending is PATCH.AAA so you rename it to PATCH.EXE. Password for ZIP file is  word  pscript.

Other steps in readme.txt are clear.

------------------------------------

Put your PSCRIPT.DLL file in same folder with your .EXE.

In hbmk.hbm file put this line:

c:\harbour\extras\ps32\ps32.hbc

or do it as is written in step 6 of readme.txt.

------------------------------------

If you have some specific problem, please write here.

Regards,

Simo.

[cod...@outlook.com]

Hi Gillermo.

I am sending you example how PageScript32 can be used in Harbour.

Please read Word file explanation.

Regards,

Simo.

[cod...@outlook.com]

Hi Gillermo.

If you at this moment can not make psc00.exe,  I am sending you my psc00.EXE I have created. 

File I am sending is psc00.AAA so you rename it to psc00.EXE. Password for ZIP file is  word  pscript.

Put psc00.exe in your folder with items.dbf file. 

Regards,

Simo.

[cod...@outlook.com]

Hi Gillermo.

Here is ZIP file.

Regards,

Simo.

[Guillermo Varona Silupú]

Simo, muchas gracias, pude generar la LIB ps32.lib usando  Pscript32 version 3.0.4.124.

Respecto a la Versión 4, comentando algunas líneas del TPSCRIPT.PRG genera la LIB, pero no funciona.

No pude generar el ejemplo que me enviaste, falta el archivo "prn00.ch" y luego me salta que falta la función `HB_FUN_PRNPAGEI'.

De todas maneras ya pude verificar que la LIB funciona correctamente tomando el ejemplo demo.prg de la versión 4, comentando las líneas de firma de un PDF.

Muchas Gracias

--
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
Unsubscribe: harbour-user...@googlegroups.com
Web: https://groups.google.com/group/harbour-users
---
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to harbour-user...@googlegroups.com.

To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/f2b81461-ef2f-4bd8-a9da-86ba8c63cd34n%40googlegroups.com.

[cod...@outlook.com]

Hi  Guillermo.

Sorry for prn00.ch. 

I am sending that file.

In my place I did not have that error. Now I see that compiler found  prn00.ch  in some folder I have in PATH environment variable. 

Function PRNPAGEI() is defined in prn00.ch and it is about Esc sequences for matrix printers.

Regards,

Simo.

[Martin Fears]

Hi All

I note this thread is a few months old now but has been useful for me, to a point ...

I'm in the process of bringing an old Clipper app into the 32/64 bit Windows environment.

I've complied, linked & run - all good.

Now I want to enhance the printing options to include creating reports in PDF.

My reports are currently created with 90% @ PROW(), PCOL() SAY .... 

When printing to Printer my PCL ESC commands are issued with QQOUT()

Hard printing was via NET USE LPT1: \\server\prnshare /persistent: yes but I want to make use of the HBwin functions to improve.

I'd prefer not to have to change all my report source code to eg "TEXTOUT"

Might someone have some source code they could share with me that I can use to get me started?

(I have already looked at the HB32 tests prn*.prg but these aren't very helpful)

I'm open to using ghostpcl (where do I start) and/or pscript32 + are hbhpdf and/or hbvpdf any use/good?

Hope someone can help me.

[cod...@outlook.com]

Hi Martin.

I was in similar situation. My reports were all with @ row,col SAY. Then came laser printers, after that 64 bit Windows, so I needed to solve that situation. First I found AbeeLabs PageScript library. Later I discovered Harbour and all my problems gone.

How I started to use PageScript and modified my reports you can see in Word text I am sending here. Could not explain that in shorter way. It is not best in the world but I still exist on the market J  … as one-man orchestra.

Regards,

Simo.

[Martin Fears]

Thanks Simo, that is very helpful ...

With your @ row,col SAY > to > @ row,col WAY in the .CH will I need to replace all my PROW(),PCOL() with new row,col vars in my report.prg files?

Do you use/not use PS functions like: PSSetDevice() PSBeginDoc() PSEndDoc() or PSBeginRawDoc(), PSPrintRawDoc() PSEndRawDoc() or BEGIN DOC USING / ENDDOC for your printing?

[cod...@outlook.com]

Hi Martin.

I do not know to write short messages :)  , so I again send new Word text.

Regards,

Simo.

[brunel...@gmail.com]

Do you want to use my XRTF library?

Brunello Pulix

[Francesco Perillo]

Not the OP but it can be a nice to have library. Is it open source / freely available ? A project on github ?

thank you

Francesco

--
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
Unsubscribe: harbour-user...@googlegroups.com
Web: https://groups.google.com/group/harbour-users
---
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to harbour-user...@googlegroups.com.

To view this discussion visit https://groups.google.com/d/msgid/harbour-users/a00c4fb8-5f44-4ccd-812f-34fafd445638n%40googlegroups.com.

[brunel...@gmail.com]

send me an email

Brunello Pulix

[brunel...@gmail.com]

send me an email

Brunello Pulix

Il giorno venerdì 3 gennaio 2025 alle 23:22:16 UTC+1 Francesco Perillo ha scritto:

[Anderson Cardoso Silva]

Well,

I have done my own solution I created SIBRA that is a lib which does everything harbour can do without effort.

Check it out: http://linguagemclipper.com.br/impressoras/sibra-impressora-usb-clipper-excel

The webpage is in Portuguese, use a translator if needed.

If you have to work on harbour you have to change all lines of your report instead all of this you may only put RELATORIO(1) at beggining and RELATORIO(0) at end and remove SET DEVICE and SET PRINT, all done. SIBRA does everything harbour can make much easier and also Excell sheets.

See examples and demos at its website.

[brunel...@gmail.com]

if you work well with SIBRA you do well to work with SIBRA.
For 25 years I have been using the SET PRINT and SET DEVICE TO commands. When the first graphic printers came out I had difficulty using Epson and IBM codes. I understood then that I had to change.
From Clipper I moved on to Visual Object and then to Harbour. There I began to develop codes that could work with everyone. When I have to create reports I don't care which printer is installed in the system. I create a single document then it is up to the operating system to send it to the printer both Local and network. I don't understand when you send the print to LPT1. Are there still printers that have it?
PCs have changed, printers have changed but the ideas have remained old and obsolete? Developing software is having ideas if you don't have them you fall behind. The competition is ruthless.
Anyway I wish you good work anyway and I say goodbye bye
Brunello Pulix