visual-basic - Program til at printe med? - Udvikleren.dk

Tags: visual-basic

Bruger #14864 @ 04.04.09 11:17

Den sidste uges tid har jeg søgt utalige hjemmesider for informationer om at lave et program der kan printe, uden at blive meget klogere.
Ligemeget hvad jeg finder og vil teste det i VB for at få en forståelse af hvordan det hænger sammen, popper der ufatteligt mange understregede kodeord frem. Som jeg så ikke kan forklare, da jeg ikke har leget med print i VB før..
anyway

Jeg prøver at lave noget så simpelt som en lille program med :
4textboxes
1cmdknap (skal sjovt nok kaldes "print")

Screenshot af hvor det skal være: http://img17.imageshack.us/my.php?image=printssr.jpg

Når jeg trykker på Print, skal de 4 stykker tekst der er skrevet i boksene komme flot ud på min Labelprinter..
Det er stort set det, men senere ville det jo så være rart hvis de blev printet de rigtige steder på labelet..

Bruger #14864 @ 05.04.09 02:19

Ok, har stort set fundet ud af det hele selv nu, men hvordan for man den til at vælge en bestemt printer i stedet for printeren som er sat til standart i windows?

Kode

Option Strict Off
Option Explicit On
Imports Microsoft.VisualBasic.PowerPacks.Printing.Compatibility.VB6
Friend Class FrmPrint
	Inherits System.Windows.Forms.Form

    Dim W_Printer As String
	
	Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
		Dim Printer As New Printer
		Dim Rtn As Object
		If List1.SelectedIndex >= 0 Then
		
			Rtn = MsgBox("Do you wish to print your message on " & StrConv(List1.Text, VbStrConv.UpperCase) & " Printer", MsgBoxStyle.Information + MsgBoxStyle.YesNo)
			If Rtn = MsgBoxResult.Yes Then
				W_Printer = List1.Text
                Set_Printer()
                MsgBox(Printer.DeviceName)
                Printer.Copies = Text5.Text
                Printer.ScaleTop = 50
                Printer.FontSize = 16
                Printer.FontBold = True
                Printer.FontName = "Arial"
                Printer.Print("     " + Text1.Text)
                Printer.FontSize = 6
                Printer.Print()
                Printer.FontSize = 16
                Printer.Print("     " + Text2.Text)
                Printer.FontSize = 8
                Printer.Print()
                Printer.FontSize = 16
                Printer.Print("     " + Text3.Text)
                Printer.FontSize = 16
                Printer.Print()
                Printer.FontSize = 16
                Printer.Print("     " + Text4.Text)
				Printer.EndDoc()
			End If
		Else
			MsgBox("Select the printer and then try", MsgBoxStyle.Critical)
		End If
	End Sub
	
	Private Sub FrmPrint_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		Get_Printer_List()
	End Sub
	
	Public Function Get_Printer_List() As Object
		Dim i As Short
		For i = 0 To Printers.Count - 1
			List1.Items.Add(Printers(i).DeviceName)
		Next i
	End Function
	
	Public Function Set_Printer() As Object
		Dim Printer As New Printer
		Dim Prt As Printer
		For	Each Prt In Printers
			If Prt.DeviceName = W_Printer Then
				Printer = Prt
			End If
		Next Prt
	End Function

End Class

Program til at printe med?

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler