Drucken auf beliebigen Drucker / Korrekturen ?
22.10.2007 17:44:00
Selma
ich habe 3 Fragen zum Makro "Drucken_3":
1. zur Zeit wird nur bei kleinem "x" gedruckt. Was muss ich ändern, damit es für kleines "x" und großes "X" gilt?
2. n = ist auf 100 begrenzt. Was muss ich ändern, damit es bis letzte gefüllte Zeile der Spalte B gilt?
3. Wie kann ich beim Starten des Makros "Drucken_3" auswählen (alle installierte Drucke sollen angezeigt werden) an welchen Drucker gedruckt werden soll?
Sub Drucken_3()
For n = 1 To 100
If Cells(n, 3).Value = "x" Then
Cells(1, 1).Value = Cells(n, 2).Value
Range("A1:A45").PrintOut
End If
Next n
End Sub
Vielen Dank im Voraus.
Liebe Grüße
Selma