The KE6900 series can extend and deploy computers with high definition displays across multiple stations in a variety of applications that suit any environment. Expand computer use to stations across multiple rooms with dynamic access.
Public Sub Command1_Click() ' Print the contents of the RichTextBox with a one inch margin ' PrintRTF Doc, AnInch, AnInch, AnInch, AnInch Combo1.Text = "HP LaserJet 1018" Dim Y As Printer For Each Y In Printers If Y.DeviceName = Combo1 Then ' Set printer as system default. Set Printer = Y ' Stop looking for a printer. Exit For End If Next 'Printer.ForeColor = &H80000008 'sets the text colour 'Printer.Orientation = vbproplandscape Printer.Print Doc 'prints whats in text1 Printer.EndDoc End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.