Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
912to916
912to916
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

hyperlink ausdrucken

Forumthread: hyperlink ausdrucken

hyperlink ausdrucken
14.10.2007 16:21:00
mehmet
hallo forum,
leider konnte ich nichts geeignet finden in der recherche.
ich suche habe ein tabelle namens "so".
in spalte b stehen links.
diese möchte ich gern ausdrucken.
also sowas wie im internet explorer "ziel drucken" oder "print target".
der ausdruck (mittels button) soll mit makro durchlaufen.
die links sind in spalte:
b3:b8
b10:b15
dank und gruss
mehmet

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: hyperlink ausdrucken
14.10.2007 16:34:45
Klaus
Hi,
zeichne doch mal mit dem Makro-Rekorder auf!

Sub Makro1()
' Makro1 Makro
' Makro am 14.10.2007 von Klaus K. aufgezeichnet
Range("C2:C7,D10:D14,F1:F9").Select
Selection.PrintOut Copies:=1, Collate:=True
End Sub


Schaltfläche in Deine Tabelle einfügen und "Makro1" zuweisen.
Gruss
Klaus K.

Anzeige
AW: hyperlink ausdrucken
14.10.2007 16:39:26
mehmet
hallo klaus,
dank dir für deine hilfe.
die links sind bilder (gif), bsp: http://www.gdhm.de/gdhm_bodenkarte.gif
es wird aber nur die zellinhalte ausgedruckt statt der link selber.
gruss
mehmet

AW: hyperlink ausdrucken
14.10.2007 17:14:36
Klaus
Die 1. Grafik wird zunächst in Tabelle "so" direkt aus dem Link importiert. Dann auf dem Standartdrucker ausgedruckt. Dann wird die Grafik wieder gelöscht. Das ganze ist in eine Schleife gepackt. Der Code ist nur eine "Schnelllösung". Es werden keine Fehler abgefangen, usw. Aber als Ansatz sollte es reichen.

Sub grafiken_drucken()
Dim iRow, gfk As String
ThisWorkbook.Worksheets("so").Range("A1").Select
For iRow = 3 To 8
fgk = ThisWorkbook.Worksheets("so").Cells(iRow, 2).Value
ActiveSheet.Pictures.Insert(fgk).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.Cut
Next iRow
For iRow = 10 To 15
fgk = ThisWorkbook.Worksheets("so").Cells(iRow, 2).Value
ActiveSheet.Pictures.Insert(fgk).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Selection.Cut
Next iRow
End Sub


Voraussetzung ist, dass der Link ausgeschrieben in der Zelle steht.
Gruss
Klaus K.

Anzeige
AW: hyperlink ausdrucken
14.10.2007 17:46:00
mehmet
herzlichen dank klaus
es funktioniert
deine idee ist echt gut
kann man eine tabelle "temp" haben, wo die bilder downgeloaded/gedruckt und gelöscht werden
sonst wird immer die ganze tabelle "so" mit ausgegedruckt
gruss
mehmet

AW: hyperlink ausdrucken
14.10.2007 18:26:00
Klaus
Hier der neue Code mit Erklärung.

Sub grafiken_drucken()
'Variablen deklarieren
Dim iRow, gfk As String
'Blatt "tmp" anlegen
ThisWorkbook.Sheets.Add.Name = "tmp"
'Zelle aktivieren
Range("A1").Select
'Schleife einleiten
For iRow = 3 To 8
'Variable "gfk" erhält den Wert aus Zelle B3 bis B8
gfk = ThisWorkbook.Worksheets("so").Cells(iRow, 2).Value
'in Blatt "tmp" wird die Grafik aus "gfk" in Zelle A1 eingefügt und markiert
Worksheets("tmp").Pictures.Insert(gfk).Select
'nun wird das Blatt gedruckt
Worksheets("tmp").PrintOut Copies:=1, Collate:=True
'Grafik kann nun gelöscht werden
Selection.Cut
'jetzt kommt die nächste Grafik dran
Next iRow
'Das Ganze wiederholen wir für die anderen 6 Grafiken
For iRow = 10 To 15
gfk = ThisWorkbook.Worksheets("so").Cells(iRow, 2).Value
Worksheets("tmp").Pictures.Insert(gfk).Select
Worksheets("tmp").PrintOut Copies:=1, Collate:=True
Selection.Cut
Next iRow
'Das Blatt "tmp" kann wieder gelöscht werden.
'Die Frage "Wollen Sie wirklich löschen?" wird mit zunächst unterdrückt.
Application.DisplayAlerts = False
'jetzt aber löschen
Sheets("tmp").Delete
End Sub


Wie gesagt, ist das eine einfache Schnelllösung. Versuche selbst mal dran rum zu basteln.
Gruss
Klaus K.

Anzeige
AW: hyperlink ausdrucken
14.10.2007 19:15:18
mehmet
dank dir klaus,
du bist super.
angenehmen abend wünsch ich dir
gruss
mehmet

Danke. Kein Problem - o.T.
14.10.2007 19:31:00
Klaus
.
;

Forumthreads zu verwandten Themen

Einzelne Zeilen markiert ausdrucken
Urmila

Hallo gemeinsam,
ich habe eine Liste mit verschidenen Personen, soetwas wie eine Verteilerliste.
Da die Liste umfangreich ist und ich nicht immer wieder die einzelne Person markieren muss und ausdrucken muss, gibts da sicherlich was dazu....
Fall:
In den Spalten A bis E stehen I...
22.09.2008 10:01:00
Thread-ID: 1011388
3 Beiträge
fixierte Zeile beim Ausdrucken anzeigen
skuehmichel

Hallo.
Ich habe eine Tabelle in der ich eine Zeile fixiert habe so das ich beim scrollen immer den Überblick hab welche beschriftung diese spalte nun hat. Beim Ausdrucken bekomme ich diese Zeile allerdings nur einmal angezeigt und zwar als erstes. möchte aber das sie auf jedem neuen Blatt o...
30.09.2008 16:43:00
Thread-ID: 1013448
2 Beiträge
Spalte nicht ausdrucken
Edwin

Hallo,
ich möchte in einem Sheet, dass eine bestimmte Spalte nicht ausgedruckt wird.
Ich weiß, dass ich Spalten ausblenden kann und dass diese dann nicht ausgedruckt werden.
Kann ich aber auch der Spalte die Eigenschaft zuweisen, dass sie nicht ausgedruckt wird?
Gruß
Edwin
05.11.2008 10:42:43
Thread-ID: 1021789
4 Beiträge
Outlook 2007-erste Seite ausdrucken
Susanne

Hallo zusammen,
ich weiß, dass ich die Frage nicht hier stellen sollte, da es sich lediglich um Outlook und nicht Excel Fragen handelt. Nun ich habe schon überall im Google auf die Lösungen gesucht und alle sind verzweifeln! Da ihr aber VBA Profi seid, versuche ich mal die Frage Euch zu ste...
16.11.2008 15:30:36
Thread-ID: 1024918
2 Beiträge
bestimmte PDF-Seite ausdrucken
sepp

Hallo
habe aus dem Forum ein Programm zum Ausdrucken
von Pdf Dateien:
Public Product
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hWnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, _ ByVal...
18.11.2008 20:15:18
Thread-ID: 1025777
3 Beiträge
Tabelle auf DIN A 4 ausdrucken
Kathryn

Hallo,
ich habe eine Excel Tabelle, die ich nun ausdrucken möchte. Leider passt die Tabelle beim ausdrucken nicht auf ein DIN A 4 Blatt. Kann ich das irgendwie konfigurieren oder muss ich die Schrift noch kleiner machen?
Gruß.
01.12.2008 17:06:00
Thread-ID: 1029307
3 Beiträge
Mit Excel Macro Powerpoint Datei ausdrucken.
DirkR

Hallo zusammen,
ich habe ein Problem mit einem Makro und bin leider bei der Recherche nicht fündig geworden:
Über ein VBA Makro in Excel möchte ich gerne eine Powerpointdatei welche bereits geöffnet ist ausdrucken,
und zwar achtmal auf einem bestimmten Drucker.
Habt Ihr einen Ti...
22.12.2008 16:34:48
Thread-ID: 1034802
2 Beiträge
Clipboardinhalt ausdrucken
gröbi

Hallo,
ich möchte den Inhalt einer Listbox mit PDF-Creator ausdrucken. Der Inhalt der Listbox ist größer als die Maße der Listbox, weshalb der Ausdruck des Formulares nicht in Erwägung kommt. Ich habe den Inhalt in eine Texdatei (.txt) transportiert. Doch dort kann eine Schriftart vorgegebe...
15.02.2009 14:33:00
Thread-ID: 1050877
3 Beiträge
Website per makro ausdrucken
meixner

Hallo zusammen,
möchte per makro aus dem Excel eine Website automatisch ausdrucken?
Pfad der Datei ist:
http://www.stoxx.com/download/data/change_files/corporate_actions_tmi_components.txt
Kann mir jemand mit dem Makro helfen? Habe noch keine Idee.
Vielen Dank
Dani
27.04.2009 15:17:24
Thread-ID: 1071397
2 Beiträge
Zähler für Ausdrucke
Ralf

Hallo Zusammen,
ich habe da wieder mal ein Problem.
Ich habe eine Datei in der Aufträge erfasst werden. Ein Eingabeblatt mit einer Zeile pro Auftrag und 3 Ausgabeblätter in denen die Daten per Sverweis unter Angabe der Auftragsnummer übertragen werden. Ich möchte jetzt einen Zähler pro...
20.05.2009 14:42:54
Thread-ID: 1076382
16 Beiträge
Chart Filter mit dem Chart ausdrucken
Markus

Hallo zusammen,
Ich hoffe irgendwer kann mir weiterhelfen. Ich habe ein Pivot Chart und möchte dieses ausdrucken.
Soweit so gut, allerdings wie bekomme ich die eingestellten Filter mit auf den Ausdruck?
Wenn ich die Charts jetzt drucke, habe ich keine Ahnung mehr was im Filter einge...
11.09.2009 11:36:27
Thread-ID: 1101812
4 Beiträge
Anzeige
WebBrowser -> ausdrucken
Holger

Hallo zusammen,
wie kann ich den Inhalt des WebBrowser ausdrucken. Möchte das Programmiertechnisch anstossen.
Gruss
Holger
11.09.2009 14:20:33
Thread-ID: 1102027
10 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige