Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Drucken
Autor: VBRunner
Datum: 08.09.03 18:24
Hi Peacemaker deine Funktion ergibt immer 0 , weil alle XY werte >32767 sind. Deine Funktion ist ziemlich umständlich, probier's mal so 'Private Function mmToTwips(ByVal mWert As Long) 'mmToTwips = Fix(mWert / 56.7) 'End Function 'Erklärung: 1440 Twips sind ca. 1 Inch 567 Twips sind ca. 1cm 56,7 Twips sind ca. 1mm Außerdem verwechselst du offenbar die Koordinaten CurrentX=waagrecht CurrentY=senkrecht Eine Frage: Weshalb verwendest du Printer.Scalmode 6 und rechnest dann umständlich zurück nach Twips? Deine Ausgangswerte sind doch schon Twips-werte Stell doch den Printer.Scalmode auf 1 und spar dir die Rechnerei Hier noch mal der funktionsfähige Code Option Explicit Private Sub Text_drucken() Printer.ScaleMode = 6 Text_aufbauen "Arial", 8, 1000, 1350, txtName.Text Text_aufbauen "Arial", 8, 1800, 1350, cboAbteilung.Text Text_aufbauen "Arial", 8, 3000, 870, txtId.Text Printer.EndDoc End Sub Private Sub Text_aufbauen(mFontname As String, mFontSize As Integer, mX As Long, _ mY As Long, mText As String) Printer.CurrentX = 0 Printer.CurrentY = 0 Printer.Font = mFontname Printer.FontSize = mFontSize Printer.CurrentX = mmToTwips(mX) Printer.CurrentY = mmToTwips(mY) Printer.Print mText End Sub Private Sub Command1_Click() Text_drucken End Sub Private Function mmToTwips(ByVal mWert As Long) mmToTwips = Fix(mWert / 56.7) End Function cu VBRunner

Drucken	524	Peacemaker	07.09.03 00:33
Re: Drucken	326	Master	07.09.03 08:40
Re: Drucken	318	VBRunner	07.09.03 20:24
Re: Drucken	308	Peacemaker	07.09.03 22:53
Re: Drucken	337	VBRunner	07.09.03 23:03
Re: Drucken	298	Peacemaker	08.09.03 16:51
Re: Drucken	300	VBRunner	08.09.03 17:04
Re: Drucken	308	Peacemaker	08.09.03 17:36
Re: Drucken	320	VBRunner	08.09.03 18:24

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