Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Drucken -> FittoPage
Autor: Sina
Datum: 13.05.03 11:17
Hallo, ich hoffe ich werde hier nicht gleich gelyncht, aber kann mir jemand sagen, wie ich mittels .Net einen Drucker übergebe??? Hier die Prozedur, die ich gerne auf .Net umschreiben möchte: Sub PrintPictureToFitPage(Prn As Printer, pic As Picture) Dim PicRatio As Double Dim PrnWidth As Double Dim PrnHeight As Double Dim PrnRatio As Double Dim PrnPicWidth As Double Dim PrnPicHeight As Double Const vbHiMetric As Integer = 8 With Prn ' Entscheidet, ob hochkant oder querkant und setzt ' die Orientation If pic.Height >= pic.Width Then .Orientation = vbPRORPortrait Else .Orientation = vbPRORLandscape End If ' Verhältnisbererechnng (ratio) PicRatio = pic.Width / pic.Height ' Berechnung des Druck-Bereichs PrnWidth = .ScaleX(.ScaleWidth, .ScaleMode, vbHiMetric) PrnHeight = .ScaleY(.ScaleHeight, .ScaleMode, vbHiMetric) ' Und Das Druck-Bereichsverhältniss PrnRatio = PrnWidth / PrnHeight ' Skalieren If PicRatio >= PrnRatio Then ' Auf maximale Papierbreite skalieren PrnPicWidth = .ScaleX(PrnWidth, vbHiMetric, .ScaleMode) PrnPicHeight = .ScaleY(PrnWidth / PicRatio, vbHiMetric, _ Prn.ScaleMode) Else ' Scale picture to fit full height of printable area ' Auf maximale Papierhöhe skalieren PrnPicHeight = .ScaleY(PrnHeight, vbHiMetric, .ScaleMode) PrnPicWidth = .ScaleX(PrnHeight * PicRatio, vbHiMetric, _ .ScaleMode) End If ' Drucken .PaintPicture pic, 0, 0, PrnPicWidth, PrnPicHeight ' Druckvorgang beenden .EndDoc End With End Sub Danke für Eure Hilfe, ich bin schier am verzweifeln.... Gruss Sina

Drucken -> FittoPage	862	Sina	13.05.03 11:17
Re: Drucken -> FittoPage	547	T.C.McQueen	18.05.03 11: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übersicht

Suchen