vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
doch noch probleme 
Autor: firemike
Datum: 15.04.06 12:41
HAllo,
jetzt hab ich doch noch ein Problem, wenn ich das in meinen Code einfüge, habe ich das selbe Problem wieder, was mache ich falsch ?

Hier mal der gesamte Code: 

Private Sub Command1_Click()
Dim Zeile() As String
Dim N As Long
 
Zeile = Split(Label1.Caption, vbCrLf)
 
Printer.ScaleMode = vbMillimeters
Printer.CurrentY = 52
Printer.FontSize = 8
Printer.Font = "Arial"
Printer.Font.Bold = False
 
For N = 0 To UBound(Zeile)
  Printer.CurrentX = 33
  Printer.Print Zeile(N)
Next
 
Printer.CurrentX = 90
Printer.CurrentY = 21
Printer.FontSize = 10
Printer.Font = "Arial"
Printer.Font.Bold = False
Printer.Print "Name:"
Printer.DrawWidth = 4
Printer.Line (103, 25)-(185, 25)
 
Printer.CurrentX = 90
Printer.CurrentY = 27
Printer.FontSize = 10
Printer.Font = "Arial"
Printer.Font.Bold = False
Printer.Print "Da kommt Text hin"
Printer.DrawWidth = 4
Printer.Line (124, 31)-(184, 31)
 
Printer.CurrentX = 20
Printer.CurrentY = 33
Printer.FontSize = 20
Printer.Font = "Arial"
Printer.Font.Bold = True
Printer.Print "Da kommt Text hin"
Printer.DrawWidth = 4
Printer.Line (90, 40)-(122, 40)
Printer.Line (130, 40)-(160, 40)
Printer.Line (175, 40)-(185, 40)
 
Printer.CurrentX = 91
Printer.CurrentY = 41
Printer.FontSize = 8
Printer.Font = "Arial"
Printer.Font.Bold = False
Printer.Print "Da kommt Text hin"
 
Printer.CurrentX = 124
Printer.CurrentY = 41
Printer.FontSize = 8
Printer.Font = "Arial"
Printer.Font.Bold = False
Printer.Print "bis"
 
Printer.CurrentX = 161
Printer.CurrentY = 41
Printer.FontSize = 8
Printer.Font = "Arial"
Printer.Font.Bold = False
Printer.Print "Da kommt Text hin"
 
Printer.DrawWidth = 8
Printer.Line (20, 45)-(185, 45)
Printer.Line (20, 50)-(185, 50)
Printer.DrawWidth = 4
Printer.Line (20, 90)-(185, 90)
 
Printer.Line (20, 130)-(185, 130)
Printer.Line (20, 170)-(185, 170)
Printer.Line (20, 210)-(185, 210)
Printer.DrawWidth = 8
Printer.Line (20, 250)-(185, 250)
Printer.Line (20, 256)-(185, 256)
Printer.DrawWidth = 4
Printer.Line (20, 271)-(185, 271)
Printer.DrawWidth = 8
Printer.Line (20, 276)-(185, 276)
 
Printer.EndDoc
End Sub
 
 
 
Private Sub Form_Load()
Label1.Caption = "1" & Chr(13) & "2" & Chr(13) & "3" & Chr(13) & "4" & Chr(13) _
  & "5" & Chr(13) & "6" & Chr(13) & "7" & Chr(13) & "8" & Chr(13) & "9" & Chr( _
  13) & "10" & Chr(13)
End Sub
Danke im Voraus
Grüsse Mike
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Problem mit Printerobjekt733firemike15.04.06 11:25
Re: Problem mit Printerobjekt437wincnc15.04.06 11:50
Re: Problem mit Printerobjekt440firemike15.04.06 12:29
doch noch probleme477firemike15.04.06 12:41
Re: Problem mit Printerobjekt477Master15.04.06 12:05
Re: Problem mit Printerobjekt455wincnc15.04.06 12:50
Re: Problem mit Printerobjekt442firemike15.04.06 14:05
Re: Problem mit Printerobjekt447Zardoz15.04.06 14:15

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel