Hallo Leute,
eine kurze sache. ich habe ein dokument, welches sich über einen button mehrmals jedoch mit unterschiedlichem inhalt und auch bildern ausdrucken lässt.
nun ist es aber zu langsam, dh ein bild wird auf alle blätter gedruckt.
wie kann ich es machen, dass er vor dem drucken erst wartet bis das neue bild geladen ist?
im moment ist es so, dass er erst nach dem druck die seite aktualisiert und das wird auch mit einer wait anweisung vorm Printout befehl nicht anders.
danke.
Hi Sebastian,
nun ist es aber zu langsam, dh ein bild wird auf alle blätter
gedruckt.
aha, Makro ist zu langsam.
wie kann ich es machen, dass er vor dem drucken erst wartet
bis das neue bild geladen ist?
Aha, warten weil Makro zu schnell.
im moment ist es so, dass er erst nach dem druck die seite
aktualisiert und das wird auch mit einer wait anweisung vorm
Printout befehl nicht anders.
danke.
Kann ja alles so sein, aber ohne den Code zu kennen und evtl. noch mehr Infos was du eigentlich möchtest weiss ich erst aml gar nix dazu.
Gruß
Reinhard
Druckaufruf:
Sub Katalog_Oberfl_extern_Click()
Modul1.Rowindex_O = 8
Modul1.Fertig = 0
Modul1.Printpossible = False
Application.Dialogs(xlDialogPrinterSetup).Show
Antw = MsgBox("Aktiver Drucker " & Application.ActivePrinter, vbOKCancel)
If Antw = vbCancel Then Exit Sub
Anfang:
Tabelle14.Nächstes_ext_Click
If Modul1.Printpossible = True Then
'Application.Wait (Now + TimeValue(„0:00:03“))
Worksheets(„DruckvorschauO_extern“).PrintOut
Modul1.Printpossible = False
End If
If Modul1.Fertig = 0 Then GoTo Anfang
End Sub
Auszug aus dem Code, der Das neue Blatt öffnet:
Modul1.Rowindex_O = zeilennummer
If picPath = „“ Then
Dim Mldg, Stil, Titel
Mldg = „Kein Bild verfügbar“
Stil = vbokbutton
Titel = „Fehler“
Antwort = MsgBox(Mldg, Stil, Titel)
Worksheets(„DruckvorschauO_extern“).Image1.Visible = False
Else
Path = Modul1.Pfad & „“ & picPath
Worksheets(„DruckvorschauO_extern“).Image1.Visible = True
On Error Resume Next
Worksheets(„DruckvorschauO_extern“).Image1.Picture = LoadPicture(Path)
Modul1.Printpossible = True
If Err.Number 0 Then
Worksheets(„DruckvorschauO_extern“).Image1.Visible = False
Mldg = "Fehler " & Str(Err.Number) & Chr(13) & "Meldung: " & Err.Description
MsgBox Mldg, , „Fehler“, Err.HelpFile, Err.HelpContext
End If
End If
Else
Dim Mldg2, Stil2, Titel2
Mldg2 = „Keine weiteren Teile“
Stil2 = vbokbutton
Titel2 = „Fehler“
Antwort2 = MsgBox(Mldg2, Stil2, Titel2)
Modul1.Fertig = 1
End If
Vielleicht kannst du ja jetzt etwa erahnen was ich machen will…