Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Bild ausdrucken!
Autor: Soulfly
Datum: 07.12.02 15:43
Hallo Leider funtzt der Tipp von der Seite hier bei mir nicht mit dem Bild anzeigen mit call bild_anzeigen lädt er ein Bild von einer Textbox in das Haupt.Picture1 rein!! Doch wenn ich ausdrucken will sagt der immer kein Bild gefunden, wenn ich aber ein Bild schon von anfang an definiere druckt er dies aus auch wenn ich halt ein anderes reingeladen habe hier der Code Wäre nett wenn mir einer weiter hilft!!! Public Sub drucken_farbe() Dim nie As Long nie = 0 If drucken.Op_co_front = True Then On Error GoTo error Call bild_anzeigen PrintPicture Haupt.Picture1.Picture, 20, 20, _ 120, 120 If nie = 1 Then error: MsgBox ("Bild nicht gefunden") End If End If End Sub '''''''''''''''''''Der code von Tips und Tricks Public Sub PrintPicture(Picture As Picture, _ ByVal xPos As Long, ByVal yPos As Long, _ Optional ByVal xSize As Long = 0, _ Optional ByVal ySize As Long = 0) Dim OldScaleMode As Integer With Printer ' Maßeinheit mm OldScaleMode = .ScaleMode .ScaleMode = 6 If xSize > 0 And ySize > 0 Then ' Bild vergrößert/verkleinert drucken Printer.PaintPicture Picture, xPos, yPos, _ xSize, ySize Else ' Bild in Orginalgröße drucken Printer.PaintPicture Picture, xPos, yPos End If ' ursprüngliche Maßeinheit wiederherstellen .ScaleMode = OldScaleMode End With End Sub '''''''''''''''''''''''Hier mein Call bild_anzeigen () Public Sub bild_anzeigen() On Error GoTo bild If Haupt.txt_bild = "" Then bild: With Haupt.Picture1 .AutoRedraw = True .PaintPicture LoadPicture(App.Path & "\nocover.jpg"), 0, 0, _ .ScaleWidth, .ScaleHeight .AutoRedraw = false End With Else With Haupt.Picture1 .AutoRedraw = True .PaintPicture LoadPicture(Haupt.txt_bild.Text), 0, 0, _ .ScaleWidth, .ScaleHeight .AutoRedraw = false End With End If End Sub MFG Soulfly

Bild ausdrucken!	62	Soulfly	07.12.02 15:43
Re: Bild ausdrucken!	341	Dieter	07.12.02 16:07
Re: Bild ausdrucken!	28	Soulfly	07.12.02 16:19
Re: Bild ausdrucken!	343	Dieter	07.12.02 16:26
Re: Bild ausdrucken!	31	Soulfly	07.12.02 17:46

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