mojaSymfonia FORUM
https://forum.mix-soft.pl/

Rozmiar drukowanej strony (premium)
https://forum.mix-soft.pl/viewtopic.php?f=15&t=366
Strona 1 z 1

Autor:  pszczol [ 2008-10-27, 14:23 ]
Tytuł:  Rozmiar drukowanej strony (premium)

Witam.

Jak bezpośrednio w raporcie zdefiniować rozmiar kartki na której chcę wydrukować raport?
Doszedłem do tego, że funkcja str.wydruk ma coś z tym wspólnego i, że można definiować wydruk pisząc np (wydruk graficzny,a4,poziomo) ale funkcja nie chce przyjąć innego rozmiaru jak a4.
Z góry dzięki za podpowiedź.

Pozdrawiam

Autor:  rafal [ 2008-10-27, 17:06 ]
Tytuł: 

Kod:
string sChceDrukowacNa = "A5"

string PageName( 1 )
int PageID( 1 )
int PageIdx = -1
int iFormat

GetPapers(0, PageName, PageID, 0, 0)
for iFormat=1 to iFormat>size(PageName)
  if PageName(iFormat) == sChceDrukowacNa then PageIdx = iFormat
next iFormat

if PageIdx == -1 then
Message using "Brak zefiniowanego formatu papieru o nazwie %s w systemie", sChceDrukowacNa
else
str.wydruk(0, PageID(PageIdx) ,1 )
endif

print using "x: %f y: %f", str.szer, str.wys

Autor:  sqza [ 2009-03-27, 09:48 ]
Tytuł: 

Witam,

Czy istnieje jakaś metoda analogiczna do GetPapers przy pomocy której można pobrać listę dostępnych (zainstalowanych w systemie) drukarek ?

Pozdrawiam

Autor:  rafal [ 2009-03-27, 11:13 ]
Tytuł: 

takie informacje można uzyskać z rejestru systemowego

Autor:  sqza [ 2009-03-27, 12:34 ]
Tytuł: 

Mnie chodziło bardziej o konkretną metodę z poziomu AmBasic-a dzięki której będę mógł wysłać wydruk bezpośrednio na konkretną drukarkę (bez pokazywania podglądu).

Ewentualnie metoda z poziomu AmBasic-a przy pomocy, której możliwy jest wybór zdefiniowanego (bądź definiowanie) kontekstu drukarki.

Autor:  jacekk [ 2009-03-27, 21:23 ]
Tytuł: 

Cytuj:
Mnie chodziło bardziej o konkretną metodę z poziomu AmBasic-a dzięki której będę mógł wysłać wydruk bezpośrednio na konkretną drukarkę (bez pokazywania podglądu).


Wydruk raportu bez podglądu można wykonac poleceniem RUN
Poniżej krótki przykład wraz z wyborem drukarki

Kod:
dispatch printer
printer.Create("WScript.Network")
printer.SetDefaultPrinter("HP LaserJet 1020")
run("Sprzedaż wg handlowców",-1)
message "Raport wykonanow"
NoOutput()

Autor:  Pawci_o [ 2009-04-06, 14:16 ]
Tytuł: 

Witam!

na poczatek kod którego dotyczy mój post:

rafal pisze:
Kod:
string sChceDrukowacNa = "A5"

string PageName( 1 )
int PageID( 1 )
int PageIdx = -1
int iFormat

GetPapers(0, PageName, PageID, 0, 0)
for iFormat=1 to iFormat>size(PageName)
  if PageName(iFormat) == sChceDrukowacNa then PageIdx = iFormat
next iFormat

if PageIdx == -1 then
Message using "Brak zefiniowanego formatu papieru o nazwie %s w systemie", sChceDrukowacNa
else
str.wydruk(0, PageID(PageIdx) ,1 )
endif

print using "x: %f y: %f", str.szer, str.wys




testuję to rozwiązanie ale niestety nie działa prawidłowo. po przypisaniu zmiennej sChceDrukowacNa wartości: "A4" drukuje mi się całkiem inna strona.. co robi funkcja: GetPapers i co jest zapisywane do tablicy PageName ? jak dla mnie w linii str.wydruk(0,PageID(PageIdx) ,1) zamiast PageIdx wstawie 6: str.wydruk(0,PageID(6) ,1) lub to drukowana strona jest bardziej podobna do A4..

Autor:  Zbyszko15 [ 2012-03-19, 18:46 ]
Tytuł:  Re: Rozmiar drukowanej strony (premium)

Witam !
Poniższy kod który został zamieszczony wcześniej cytuję:

dispatch printer
printer.Create("WScript.Network")
printer.SetDefaultPrinter("HP LaserJet 1020")

Działa prawidłowo jeżeli drukarki są zainstalowane lokalnie.

Poradzcie mi jak wskazać drukarkę udostepnioną w sieci, bo umieszczenie w
printer.SetDefaultPrinter("drukarka udostępniona w sieci")
wyświetla komunikat, że nie ma takiej drukarki

Strona 1 z 1 Strefa czasowa UTC+1godz. [letni]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/