Nyomató használata VB6 form-ból

Nyomató használata VB6 form-ból
2005-12-14T14:22:51+01:00
2005-12-14T15:15:24+01:00
2022-10-28T07:45:42+02:00
stap
Sziasztok!

Attól függetlenül, hogy gyakori tudástár téma errefele a nyomtatás, sajna én nem találom a nekem szükséges megoldást!
Szóval azt szeretném elérni, hogy egy gépről úgy használjanak egy belső hálózatban megosztott nyomtatót, hogy annak elérését a vb programban fixen van beállítva. (Ezzel el tudnánk azt kerülni, hogy nem munkához köthető anyagok is nyomtatásra kerüljenek.)
Ehhez én a Commondialog ojjektumot próbáltam használni, de abban nem hinném, hogy meg tudom adni a nyomtató hivatkozását (\\repair\raktar).

Mellékelném az a részt, ami a nyomtatásra vonatkozott:

Public Sub printing()
Printer.PaintPicture Image2.Picture, 130, 0

Printer.ScaleMode = 6

CommonDialog1.ShowPrinter
Printer.FontName = "Times Roman"

'a nyomtatás szövegének stilusa
'Printer.FontBold = True
'Printer.FontItalic = True
'Printer.NewPage

Printer.CurrentX = 0
Printer.CurrentY = 15
Printer.FontSize = 10
Printer.Print "S/N:"

Printer.CurrentX = 80
Printer.CurrentY = 5
Printer.FontSize = 14
Printer.Print "Műbizonylat"

Printer.FontSize = 10

Printer.CurrentX = 0
Printer.CurrentY = 30
Printer.Print "1. Adatok"

Printer.Line (0, 34)-(200, 34)
Printer.Line (0, 34.5)-(200, 34.5)

Printer.CurrentX = 50
Printer.CurrentY = 35
Printer.Print "Megbízó adatai"

Printer.CurrentX = 0
Printer.CurrentY = 40
Printer.Print "Cég neve:"

Printer.CurrentX = 0
Printer.CurrentY = 45
Printer.Print "Cég címe:"

Printer.CurrentX = 0
Printer.CurrentY = 50
Printer.Print "Kapcsolattartó neve:"

'Nyomtatás befejezése
Printer.EndDoc
End Sub

Van valami 5letetek rá?
Előre is köszi a válaszokat.
Üdv,
TSanyi
Mutasd a teljes hozzászólást!
Telepíteni mindenképpen kell a nyomtatót.
Aztán:
For Each oPrinter In Printers if oPrinter.devicename = "\\repair\raktar" Then Set Printer = oPrinter Exit For End If Next

A többi mehet.
(azért legalább egy ini file-ba rakd a devicename-t, hogy ne kelljen újrafordítanod az exe-t nyomtató cserénél)
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd