Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

sorry, bin NEUeinsteiger
Autor: xWolfx34
Datum: 19.12.01 10:35
Ich habe mir eine Mini-Form gebastelt, um Daten ausdrucken zu lassen, diese Form wird noch erweitert. Nun habe ich das Prob, das mir diese Variante zu viel Papier kostet. (Es gibt eine Vorgabe wie dieser Ausdruck auszusehen hat) Kann mir jemand Abhilfe verschaffen ?? Kann ich die Daten in einer Text Box ausgeben lassen ?? Des weiteren benötige ich eine Info, wie ich Daten in "EINER ZEILE" unterschiedlich anzeigen lassen kann. Hier nun das Prog. Vielen Dank im Voraus Gruss M.B. Private Sub Command1_Click() Dim stVar1 As String Dim stVar2 As String Dim stVar3 As String Dim stVar4 As String Dim stVar5 As String Dim stVar6 As String Dim intVar1 As Integer Dim intVar2 As Integer Dim intVar3 As Integer Dim intVar4 As Integer Dim intVar5 As Integer Dim intVar6 As Integer stVar1 = "MTL-AE 997" stVar2 = "07:47" stVar3 = "Maeier" stVar4 = "Helmut Eisel" stVar5 = "Autostadt Auslieferung" stVar6 = "024112" intVar1 = 16 intVar2 = 1 intVar3 = 2 intVar4 = 3 intVar5 = 112 intVar6 = 113 intVar7 = 11 intVar8 = 12 Dim PR As Printer Set PR = Printer PR.FontSize = 7 PR.CurrentX = 3000 PR.Print "Server " & intVar7 & Time$ PR.FontSize = 10 PR.FontBold = True PR.Print stVar1 & "Zeit:" & stVar2 & "Platz: " & intVar1 PR.FontSize = 9 PR.FontBold = False PR.Print "Abholer: " & stVar3 PR.FontSize = 9 PR.Print "Kunde: " & stVar4 PR.Print "Betreuer: " & stVar5 PR.FontUnderline = True PR.Print "Gepäck:" PR.FontUnderline = False PR.Print intVar2 & " x " & stVar6 PR.FontUnderline = True PR.Print "Präsente:" PR.FontUnderline = False PR.Print intVar3; " x " & intVar5 PR.Print intVar4; " x " & intVar6 'PR.NewPage PR.EndDoc End Sub

sorry, bin NEUeinsteiger	65	xWolfx34	19.12.01 10:35
Re: sorry, bin NEUeinsteiger	36	xWolfx34	19.12.01 10:58
Re: sorry, bin NEUeinsteiger	206	Dieter	19.12.01 11:18
Re: sorry, bin NEUeinsteiger	33	xWolfx34	19.12.01 11:33
Hier der Code...	211	Dieter	19.12.01 11:55
Re: Hier der Code...	33	xWolfx34	19.12.01 12:05
Und hier das Update	219	Dieter	19.12.01 13:06
Re: Und hier das Update	23	xWolfx34	19.12.01 13:54

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übersicht

Suchen