[ vedric @ 13.12.2002. 07:41 ] @
Kako da ovo uradim...ma link ma bilo što gdje ima materijala ,,ali ne na nekom stranom jeziku Imam određeni obrazac i na točno određenim mjestima bi mi računalo trebalo isprintat podatke,,npr ime prezime,,,datum rođenja,te sve podatke upisao sam u tekst boksove i kad sam poslao printeru on je isprintao cijeli dokument,,s pozdinom s stvarma koje ne želim da se vide na ispisu,s kučicama ma sa svim,,,a to ne želim ..želim samo podatke koji se mjenjaju za svaki obrazac,, U meni pod opcijom print mi je ovaj kod dolje,, Private Sub mnuFilePrint_Click() Dim TotalPages As Integer Dim PageCount As String ' Specifies the text position to print Printer.CurrentX = 0 Printer.CurrentY = 0 Printer.Print ....... ' Specifies a line width and location Printer.DrawWidth = 3 Printer.Line (100, 100)-(10000, 100) Printer.Line (100, 350)-(10000, 350) TotalPages = Printer.Page ' Specifies where to print the page count Printer.CurrentX = 1000 Printer.CurrentY = 400 PageCount = "TotalPages = " & Str$(TotalPages) Printer.Print PageCount Printer.EndDoc |