Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

kommt tinnef raus!
Autor: ulli
Datum: 02.04.02 15:51
Hi Dieter, danke für den Tipp; ich hab's ziemlich genau so gemacht (s.u.), bekomme aber offsets von 3,9knirsch zentimetern; der Drucker kann aber links ab 0,35 und oben ab 0,75 cm drucken! Da scheint mir doch ein Fehler zu liegen!??? Aber wo??? Code-Schnipsel: Private Sub Form_Load() Dim X As Integer Dim Y As Integer Dim Printername As String Y = -1 'Die Combobox mit vorhandenen Druckern füllen For X = 0 To Printers.Count - 1 Printername = Printers(X).DeviceName Me.cmbDrucker.AddItem Printername 'Mit dem derzeit eingestellten vergleichen If Printername = Printer.DeviceName Then Y = X Next X cmbDrucker.ListIndex = Y End Sub Private Sub cmdOkay_Click() If Me.cmbDrucker.Text = "" Then MsgBox "Sie haben keinen Drucker ausgewählt!", _ vbInformation, "Error" Else For Each Prn In Printers If Prn.DeviceName = Me.cmbDrucker.Text Then Set Printer = Prn Exit For End If Next End If Call PrnBorder End Sub Private Sub PrnBorder() Dim randXcm As Single Dim randYcm As Single randX = GetDeviceCaps(Printer.hDC, PHYSICALOFFSETX) randY = GetDeviceCaps(Printer.hDC, PHYSICALOFFSETY) randXcm = ScaleX(randX, vbPixels, vbCentimeters) randYcm = ScaleY(randY, vbPixels, vbCentimeters) MsgBox ("offsetY: " & randYcm & " offsetX: " & randXcm) End Sub Oder sind das irgendwelche virtuellen Werte??? Danke ulli

seitenränder drucker von vb	59	ulli	02.04.02 15:07
Re: seitenränder drucker von vb	611	Dieter	02.04.02 15:29
kommt tinnef raus!	47	ulli	02.04.02 15:51
Re: kommt tinnef raus!	545	Dieter	02.04.02 18:36
wilde Werte	40	ulli	03.04.02 11:17
Re: wilde Werte	541	Dieter	03.04.02 14:37
Hatt' ich befürchtet! Danke! oT	35	ulli	04.04.02 13:06

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