Wydruki graficzne w Harbour
Arek - 06-05-2006 00:07
Wydruki graficzne w Harbour
Mam pewna aplikacje w Clipperze i chcialbym przy minimalnej przerobce miec
mozliwosc tworzenia wydrukow w trybie graficznym.
Przekompilowac ta aplikacje w Harbour jestem w stanie ale powiedzcie mi jak
duzy jest to problem aby przy calej aplikacji w trybie znakowym zrobic
wydruki w trybie graficznym (dodac logo w postaci .jpg itp).
--
Arek
Piotr =?iso-8859-2?Q?Kuli=F1ski?= - 09-05-2006 23:55
Roku Pańskiego 2006,
na pl.comp.bazy-danych,
człowiek (??) *Arek* napisał(a):
> Mam pewna aplikacje w Clipperze i chcialbym przy minimalnej przerobce miec
> mozliwosc tworzenia wydrukow w trybie graficznym.
> Przekompilowac ta aplikacje w Harbour jestem w stanie ale powiedzcie mi jak
> duzy jest to problem aby przy calej aplikacji w trybie znakowym zrobic
> wydruki w trybie graficznym (dodac logo w postaci .jpg itp).
Zapoznaj sięz klasą Win32Prn.
Oczywiście program musisz przenieść na platwormę win. Kompilator BCC55 lub
MinGW i wsio. Będzie działało w konsoli.
--
pozdrawiam
piotr, gg i skype w X-nagłówku posta, e-mail: zmień "wpw" na "wp"
Nic nie stoi na przeszkodzie, co by sobie przeszkody nie stworzyć :)
arek_m1 - 11-05-2006 13:00
Użytkownik "Piotr Kuliński" <piotr_kulinski@wpw.pl> napisał
>
> Zapoznaj sięz klasą Win32Prn.
Szukalem troche w Googlach ale wyglada mi na to ze jest top cos dla OS2.
Czy mozesz ,mnie oswiecic w dwoch slowach jak to dziala?
--
Arek
Piotr =?iso-8859-2?Q?Kuli=F1ski?= - 11-05-2006 13:00
Roku Pańskiego 2006,
na pl.comp.bazy-danych,
człowiek (??) *arek_m1* napisał(a):
> Użytkownik "Piotr Kuliński" <piotr_kulinski@wpw.pl> napisał
>>
>> Zapoznaj sięz klasą Win32Prn.
>
> Szukalem troche w Googlach ale wyglada mi na to ze jest top cos dla OS2.
> Czy mozesz ,mnie oswiecic w dwoch slowach jak to dziala?
Zassane z przykładów:
======
#define FORM_A4 9
FUNCTION Main()
LOCAL nPrn:=1
LOCAL aPrn:= GetPrinters()
CLS
IF EMPTY(aPrn)
Alert("No printers installed - Cannot continue")
QUIT
ENDIF
DO WHILE !EMPTY(nPrn)
CLS
@ 0,0 SAY 'Win32Prn() Class test program. Choose a printer to test'
@ 1,0 TO maxRow(),maxCol()
nPrn:= ACHOICE(2,1,maxRow()-1,maxCol()-1,aPrn,.T.,,nPrn)
IF !EMPTY(nPrn)
PrnTest(aPrn[nPrn])
ENDIF
ENDDO
RETURN(NIL)
STATIC FUNCTION PrnTest(cPrinter)
LOCAL oPrinter:= Win32Prn():New(cPrinter), aFonts, x, nColFixed, nColTTF,
nColCharSet
oPrinter:Landscape:= .F.
oPrinter:FormType := FORM_A4
oPrinter:Copies := 1
IF !oPrinter:Create()
Alert("Cannot Create Printer")
ELSE
IF !oPrinter:startDoc('Win32Prn(Doc name in Printer Properties)')
Alert("StartDoc() failed")
ELSE
oPrinter:Bold(800)
oPrinter:TextOut(oPrinter:PrinterName+': MaxRow() =
'+STR(oPrinter:MaxRow(),4)+' MaxCol() = '+STR(oPrinter:MaxCol(),4))
oPrinter:Bold(0) // Normal
oPrinter:NewLine()
oPrinter:TextOut(' Partial list of available fonts that are
available for OEM_')
oPrinter:NewLine()
oPrinter:UnderLine(.T.)
oPrinter:Italic(.T.)
// oPrinter:SetFont('Courier New',7,{3,-50}) // Compressed print
nColFixed:= 40 * oPrinter:CharWidth
nColTTF := 48 * oPrinter:CharWidth
nColCharSet := 60 * oPrinter:CharWidth
oPrinter:TextOut('FontName')
oPrinter:SetPos(nColFixed)
oPrinter:TextOut('Fixed?')
oPrinter:SetPos(nColTTF)
oPrinter:TextOut('TrueType?')
oPrinter:SetPos(nColCharset)
oPrinter:TextOut('CharSet#',.T.)
oPrinter:NewLine()
oPrinter:Italic(.F.)
oPrinter:UnderLine(.F.)
aFonts:= oPrinter:GetFonts()
oPrinter:NewLine()
FOR x:= 1 TO LEN(aFonts) STEP 2
oPrinter:CharSet(aFonts[x,4])
IF oPrinter:SetFont(aFonts[x,1]) // Could use "IF
oPrinter:SetFontOk" after call to oPrinter:SetFont()
IF oPrinter:FontName == aFonts[x,1] // Make sure Windows didn't
pick a different font
oPrinter:TextOut(aFonts[x,1])
oPrinter:SetPos(nColFixed)
oPrinter:TextOut(IIF(aFonts[x,2],'Yes','No'))
oPrinter:SetPos(nColTTF)
oPrinter:TextOut(IIF(aFonts[x,3],'Yes','No'))
oPrinter:SetPos(nColCharSet)
oPrinter:TextOut(STR(aFonts[x,4],5))
oPrinter:SetPos(oPrinter:LeftMargin, oPrinter:PosY +
(oPrinter:CharHeight*2))
IF oPrinter:PRow() > oPrinter:MaxRow() - 10 // Could use
"oPrinter:NewPage()" to start a new page
EXIT
ENDIF
ENDIF
ENDIF
NEXT x
oPrinter:SetFont('Lucida Console',8,{3,-50}) // Alternative
Compressed print
oPrinter:CharSet(0) // Reset default charset
oPrinter:Bold(800)
oPrinter:NewLine()
oPrinter:TextOut('This is on line'+STR(oPrinter:Prow(),4)+', Printed
bold, ' )
oPrinter:TextOut(' finishing at Column: ')
oPrinter:TextOut(STR(oPrinter:Pcol(),4))
oPrinter:SetPrc(oPrinter:Prow()+3, 0)
oPrinter:Bold(0)
oPrinter:TextOut("Notice: UNDERLINE only prints correctly if there is
a blank line after",.T.)
oPrinter:TextOut(" it. This is because of ::LineHeight and the
next line",.T.)
oPrinter:TextOut(" printing over top of the underline. To
avoid this happening",.T.)
oPrinter:TextOut(" you can to alter ::LineHeight")
oPrinter:NewLine()
oPrinter:NewLine()
oPrinter:SetFont('Lucida Console',18, 0) // Large print
oPrinter:TextOut("Finally some larger print")
oPrinter:EndDoc()
ENDIF
oPrinter:Destroy()
ENDIF
RETURN(NIL)
--
pozdrawiam
piotr, gg i skype w X-nagłówku posta, e-mail: zmień "wpw" na "wp"
Nie ma tego złego co by na dobre nie wyszło :)
Arek - 30-05-2006 04:06
Użytkownik "Piotr Kuliński" <piotr_kulinski@wpw.pl> napisał >
> Zassane z przykładów:
> ======
Dzieki za podany przyklad.
Na podstawie tego przykladu zrobilem program wydrukowy do mojej aplikacji.
Dziala poprawnie ale z problemami z ktorymi nie wiem jak sie uporac.
Ustawilem sobie wszystko i sprawdzilem na drukarce atramentowej w domu,
wydruk jest piekny.
Uruchomilem ta sama aplikacje w pracy na drukarkach sieciowych, laserowych.
Efekt jest taki, na jednej drukarce wszystko jest prawie ok tyle ze nuer
strony na koncu strony zniknal i wieksze litery sa drukowane z obwodkami bez
wypelnienia czarnym kolorem.
Na drugiej drukarce ten sam wydruk jest umieszczony na 1/4 strony co
powoduje obciecie polowy wydruku od prawej , logo firmy (bmp) drukuje sie
drastycznie zmniejszone , generalnie rzecz biorac smietnik.
Kto mi moze poradzic jak utworzyc wydruk graficzny aby na kazdej drukarce
byl tak samo czytelny. Moze istnieje jakas klasa drukujaca do PDF a dalej z
pdf na drukarke.
--
Arek
Piotr =?ISO-8859-2?Q?Kuli=F1ski?= - 31-05-2006 00:25
Arek wrote:
>
> Użytkownik "Piotr Kuliński" <piotr_kulinski@wpw.pl> napisał >
>> Zassane z przykładów:
>> ======
> Dzieki za podany przyklad.
> Na podstawie tego przykladu zrobilem program wydrukowy do mojej aplikacji.
> Dziala poprawnie ale z problemami z ktorymi nie wiem jak sie uporac.
> Ustawilem sobie wszystko i sprawdzilem na drukarce atramentowej w domu,
> wydruk jest piekny.
> Uruchomilem ta sama aplikacje w pracy na drukarkach sieciowych,
> laserowych. Efekt jest taki, na jednej drukarce wszystko jest prawie ok
> tyle ze nuer strony na koncu strony zniknal i wieksze litery sa drukowane
> z obwodkami bez wypelnienia czarnym kolorem.
Drukarka ma włączony tryb oszczędny, tak jest przy większości laserówek (HP)
jeśli chodzi o wygląd oszczędnego trybu wydruku
>
> Na drugiej drukarce ten sam wydruk jest umieszczony na 1/4 strony co
> powoduje obciecie polowy wydruku od prawej , logo firmy (bmp) drukuje sie
> drastycznie zmniejszone , generalnie rzecz biorac smietnik.
Ja nadal upatruję się tutaj niewłaściwych ustawień drukarki.
> Kto mi moze poradzic jak utworzyc wydruk graficzny aby na kazdej drukarce
> byl tak samo czytelny. Moze istnieje jakas klasa drukujaca do PDF a dalej
> z pdf na drukarke.
zawsze możesz zainstalować drukarkę postscriptową i do niej drukować
(właściwie z każdego programu) i uzyskasz PDF.
--
pozdrawiam, GG i SkyPe w X-nagłówku posta, e-mail: zmień "wpw" na "wp"
piotr "Uśmiechnij się, śmiech to zdrowie"
Arek - 31-05-2006 00:25
Użytkownik "Piotr Kuliński" <piotr_kulinski@wpw.pl> napisał
> zawsze możesz zainstalować drukarkę postscriptową i do niej drukować
> (właściwie z każdego programu) i uzyskasz PDF.
To mnie zainteresowalo, powiedz mi jednak czy ta drukarka poctscriptowa to
realne urzadzenie ktore trzeba kupic czy moze urzadzenie wirtualne ?
--
Arek
Piotr =?ISO-8859-2?Q?Kuli=F1ski?= - 31-05-2006 00:25
Arek wrote:
>
> Użytkownik "Piotr Kuliński" <piotr_kulinski@wpw.pl> napisał
>
>> zawsze możesz zainstalować drukarkę postscriptową i do niej drukować
>> (właściwie z każdego programu) i uzyskasz PDF.
> To mnie zainteresowalo, powiedz mi jednak czy ta drukarka poctscriptowa to
> realne urzadzenie ktore trzeba kupic czy moze urzadzenie wirtualne ?
Oprogramowanie tworzy virtualną drukarkę postscriptową, drukujesz do niej
jak do zwykłej drukarki (właściwie z każdego programu obsługującego
drukarkę) i masz PDF-a
--
pozdrawiam, GG i SkyPe w X-nagłówku posta, e-mail: zmień "wpw" na "wp"
piotr "Nic nie stoi na przeszkodzie, co by przeszkody sobie nie
stworzyć :)"
zanotowane.pldoc.pisz.plpdf.pisz.pleffulla.pev.pl
|
(OT) do oceny - =?ISO-8859-2?Q?poprawno=B6=E6_graficzna_i_?==?ISO-8859-2?Q?plityczna=3A=29?=
kalibracja =?ISO-8859-2?Q?wydruk=F3w_-_drukarka_fotografic?==?ISO-8859-2?Q?zna?=
=?iso-8859-2?Q?=5BOT=5D_konkurs_na_znak_graficzny_zespo=B3u_r ockowego?=
[teoria] Elementrane zasady transformacji na płaszczyźnie w grafice komputerowej
Najlepsze praktyki projketowania graficznego interfejsu z użytkownikiem
gdzie mozna kupic programy graficzne dla szkoly?
karta graficzna MATROX G450 DUAL HEAD
=?iso-8859-1?Q?Wirtualna_drukarka_plik=F3w_graficznych?=
[corel12] "mulenie" systemu przy plikach graficznych
Darmowe programy do konwersji =?iso-8859-2?Q?plik=F3w?= graficznych
zanotowane.pldoc.pisz.plpdf.pisz.ploefg.opx.pl
Cytat
Decede mihi sole - nie zasłaniaj mi słonca.
Gdy kogoś kochasz, jesteś jak stworzyciel świata - na cokolwiek spojrzysz, nabiera to kształtu, wypełnia się barwą, światłem. Powietrze przytula się do ciebie, choćby był mróz, a ty masz w sobie tyle radości, że musisz ją rozdawać wokoło, bo się w tobie nie mieści
Hoc fac - tak czyń.
A tergo - od tyłu; z tyłu.
I czarne włosy posiwieją. Safona |
|
