Jak sprawdzic, czy mam drukarke.

Andrzej Bednarz - 25 Lut 1999, 03:00

Używam GetDeviceCaps i przechwytuje wielkosc papieru z domyslnej
drukarki. Moj rysunek moze byc realizowany tez na ekranie. Wtedy
moglbym nie miec zadnej drukarki domyslnej (z Windows) a wiedzac o
tym robic rysunek z fikcyjnymi rozmiarami papieru.

Jak sprawdzic, czy w Windows w ogole jest jakas drukarka ustawiona
jako domyslna? Uprzedzajac dowcipnisiow - pytam o sprawdzenie z
poziomu programu, a nie z poziomu Windowsowej obslugi drukarek.

Krzysztof Swiatkowski - 25 Lut 1999, 03:00

Printer.Printers.Count0

Hopbit

GrzesiekP - 25 Lut 1999, 03:00

Spójrz na nią.

Przepraszam Cię ale to był odruch.

GrzesiekP

Janusz Dziadoń - 26 Lut 1999, 03:00

Ale masz głupie odruchy (na 30 linii) i zaśmiecanie bzdetami. Bravo i jak
zwykle zero konkretów.

Janusz Dziadoń

GrzesiekP - 26 Lut 1999, 03:00

Po pierwsze facet : odchrzań się, bo to nie było do Ciebie
Po drugie: sztywny jesteś jakbyś kij połknął
Po trzecie : co to znaczy "jak zwykle"
Po czwarte : głupie pytanie - głupia odpowiedź, niektórzy mówią na to
konkretne pytanie - konkretna odpowiedź
Po piąte : uśmiechnij się, a na pewno Ci ulży

Grzesiek Płoński
Częstochowa

PS

policz linie !!!

-=# Cait Sith #=- - 26 Lut 1999, 03:00

Question:

I get a exception error when running our application on a machine
without a default printer.

Answer:

QuickReport requires that a default printer be installed. The
report is prepared using information from the printer driver.
The following code is one way to check and see if a default
printer has been defined.

  procedure TForm1.Button1Click(Sender: TObject);
  var
    Device, Driver, Port   : array [0..255] of Char;
    Mode                   : Integer;
  begin
    Printer.GetPrinter(Device,Driver,Port,Mode);
    if Device <'' then
      ShowMessage(Device)
    else
      ShowMessage('You do not have a default printer defined');
  end;

Maciej "MACiAS" Pilichowski - 27 Lut 1999, 03:00

Piszesz do calej grupy, a nie do jednej osoby.

No i w zwiazku z tym? To nie pl.rec.humor!

Pytanie bylo konkretne, jesli nie masz nic ciekawego do odpowiedzenia
-- nie odpowiadaj.

Nie pisz wiecej takich postow, a ulzy reszcie grupowiczow.

GrzesiekP - 3 Mar 1999, 03:00

Przepraszam, jeśli kogoś obraziłem. Być może założyłem niesłusznie, że
wszyscy mają takie samo poczucie humoru jak ja. Wydaje mi się, że czasami
trzeba się pośmiać.

A Ty drogi Maćku, jeśli odpowiadasz na czyjeś pytania lub zarzuty, to
odpowiadaj na wszystkie a nie wybiórczo, i staraj się nie odpowiadać w
imieniu całej grupy. Niemniej jednak schylam głowę, bo trochę przesadziłem.

GrzesiekP