Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Drukowanie
pawel
pvsp



Typ: neutral
Postów: 20
Zarejestrowany: Apr 2002
Drukowanie

mam problem z drukowaniem w kolorze, :

Private Sub Command1_Click()
Dim str As String
str = Text1.Text
a = MsgBox("Czy chcesz wydrukować", vbYesNo)
If a = vbYes Then
Printer.ColorMode = 2
Printer.Print str
Printer.EndDoc
End If
End Sub

Opcja Printer.ColorMode = 2 jest na dwa, pole text zawiera czerwona czcionke a drukuje na czarno, co z tym zrobic?

26-10-2002 10:08
Pokaż profil pawel  Wyślij email do pawel   Odwiedź stronę pawel  
Jelcyn
Admin forum




Typ: admin
Postów: 895
Zarejestrowany: Apr 2002


mam problem z drukowaniem w kolorze, :

Opcja Printer.ColorMode = 2 jest na dwa, pole text zawiera czerwona czcionke a drukuje na czarno, co z tym zrobic?


Upewnij się, że masz kolorowy tusz. Mówię poważnie bo naprawdę znam przypadki, że ktoś formatował dysk bo drukarka mu nie chodziła a okazało się, że nie podłączył drukarki do kontaktu ...


_____________________________________________
Jelcyn
vb4all(małpka)canpol.pl
http://www.coderscity.pl/no-vb4all * http://www.jelcyn.com

28-10-2002 20:06
Pokaż profil Jelcyn  Wyślij email do Jelcyn   Odwiedź stronę Jelcyn       270849979    6237704
pawel
pvsp



Typ: neutral
Postów: 20
Zarejestrowany: Apr 2002

no tak sie sklada ze mam kolorowy tusz, a drukuje na czarno

29-10-2002 14:35
Pokaż profil pawel  Wyślij email do pawel   Odwiedź stronę pawel  
anonim




Typ: Nie zarejestrowany

hie hie hie

a moze tak ?:

Private Sub Command1_Click()
Dim str As String
str = Text1.Text
a = MsgBox("Czy chcesz wydrukować", vbYesNo)
If a = vbYes Then
Printer.ColorMode = 2

Printer.ForeColor = XXX 'xxx-kolor lub rgb(R,G,B)

Printer.Print str
Printer.EndDoc
End If
End Sub

21-01-2003 13:29
  
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1