Webbrowser drukowanie > Ustwawienia marginesów

PoP_Gniezno napisał(a)

Ręcznie umiem, ale ustawianie ręczne odpada z gry :/

Ręcznie, czyli jak?

Ręcznie czyli.. pokazuje Ci się okienko ustawień wydruku i wpisujesz marginesy :/
Chodzi o to, żeby coś w tym stylu:

Drukarka.MarginesLewy:=10;
Drukarka.MarginesPrawy:=10;

rozumiesz? ;-)

TPrinter + F1

LOL :-D
a co Ty myślisz, że ja tam nie patrzyłem? :-P
zobacz to jest procedura wydruku:

WebBrowser1.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER);

Ja nie operuję na samej drukarce tylko wywołuję tą funkcję.. ale sobie tak myślę, że skoro te ustawiania są nie zależne od Delphi.. (drukuje tak jak było poprzednio ustawiane) to może Printer nawet być..ale wątpę..
Jeszcze jakieś propozycje? ;-)

PoP_Gniezno napisał(a)

to może Printer nawet być..ale wątpę..

To ne wątp bo to dzala. :> . Printer grzebie przy drukarce a nie WebBrowserze.

no wiem ;-)
ale jak się odwołać do marginesów??
Printer.Margins < nie ma czegoś takiego.. w pomocy znalazłem jednak margins więc zwracam honor! ;-).. musiałem je jakoś przeoczyć :/

PoP_Gniezno napisał(a)

Printer.Margins < nie ma czegoś takiego.. w pomocy znalazłem jednak margins więc zwracam honor! ;-).. musiałem je jakoś przeoczyć :/
Nie masz klawisza Backspace na klawiaturze? A poza tym cieszę się że mogłem pomóc :-)

hehe.. nie dolewaj sobie (jeszcze nie teraz :-D )
nadal czekam na odpowiedź.. jak odwołać siedo marginesów w drukarce.. bo jak już wcześniej powtórzyłem nie ma czegos takiego Printer.Margins a nic innego mi do głowy nie przychodzi :/

No to się zdecyduj są, czy nie ma (muszą być)?

mówię Ci, że nie ma w "praktyce" ale w pomocy jest.
Najlepiej zrób tak.. wstaw WebBrowser, zdefinuj w uses moduł Printers
No i odwołaj się do drukarki, czyli

Printer.Jakas_procedura;

Problem w tym, że nie mogę nigdzie znajeźć właśniwości Margins :/
Z reszta sam zobacz jesli masz czas ;-)

//Edit
Ok. już mam odpowiedź.. poszukałem w pomocy..tym razem w d2005.. można wstawić komponent: PageSetupDialog1 a potem już w nim odwołania do marginesów się znajdują ;-)
Przykład:

PageSetupDialog1.MarginLeft:=10;