OBJEKAT PRINTER

Prethodna strana

Ima više načina za postavljanje teksta i grafike u objekat Printer. Za štampu pomoću ovog objekta može se:

• Dodeliti određeni član kolekcije printer objektu Printer, ako je potrebno da se štampa nekim drugim, a ne na default štampačem.
• Postaviti tekst i grafika u objekat Printer.
• Štampati pomoću metoda NewPage ili EndDoc objekta Printer.

Svojstva objekta Printer inicijalno odgovaraju onima koja važe za default štampač (podešeno u Windows Control Panel-u). Tokom vremena izvođenja mogu se podešavati svojstva objekta Printer: PaperSize, Height, Width, Orientation, ColorMode, Duplex, TrackDefault, Zoom, DriverName, DeviceName, Port, Copies, PaperBin i PrintQuality.

Sledeći primer pokazuje kako svaka stranica može da se štampa različitim kvalitetom štampe:

For pageno = 1 To 4

   Printer.PrintQuality = -1 * pageno

   Printer.Print "Kvalitet za ovu stranicu je"; pageno

   Printer.NewPage

Next

Sledeći primer postavlja rezoluciju štampe na 300 DPI:

Printer.PrintQuality = 300

Pozicioniranje teksta i grafike

Svojstva CurrentX i CurrentY objekta Printer određuju poziciju izlazana stranici. Sledeći naredbe postavljaju koordinate iscrtavanja na gornji levi ugao tekuće stranice:

Printer.CurrentX = 0

Printer.CurrentY = 0

Sledeći kod koristi metod PaintPicture za štampanje svojstva Picture (forme ili kontrole):

Sub Stampaj (Izvor As Object, Odrediste As Object)

   Odrediste.PaintPicture Izvor.Picture, Odrediste.Width / 2, Odrediste.Height / 2

   If Odrediste Is Printer Then

      Printer.EndDoc

   End If

End Sub

Zatim se ove procedure pozivaju i prosleđuju i izvoru i odredištu

Stampaj Form1, Printer

Stampaj Form1, Form1

Nakon postavljanja teksta i grafike na objekat Printer, za štampanje sadržaja koristi se metod EndDoc, koji šalje sadržaj spooler-u, koji job štampanja šalje na disk ili u memoriju, gde čeka dok štampač ne bude slobodan. Na primer:

Printer.Print "This is the first line of text in a pair."

Printer.Print "This is the second line of text in a pair."

Printer.EndDoc

Prethodna strana