• Als Spam markieren
• Beitrag melden

• 
  Diese Gruppe Alles

• Archiv
• RSS-Feeds

• Kontakt
• Hilfe
• Impressum
• Datenschutz

Print Makro: Exemplar als fortlaufende Nummer mit drucken

Hallo Leute,
- habe hier ein kleines Makro geschrieben, leider klappt es noch
nicht, dass mehrere Seiten gedruckt werden:
hat jemand ein Vorschlag?
- zweite Frage: Wie kann ich vor dem Drucken per Makro abfragen, ob
eine bestimmte Grafik mitgedruckt wird oder nicht?
hier das Makro:

Private Sub CommandButton2_Click()
com.sun.star.view.XPrintable
Dim myCell as Object
Dim mySheet as Object
Dim Anzahl as integer
Dim printProp(1) as New com.sun.star.beans.PropertyValue
myDoc = thisComponent
mySheet = myDoc.sheets(0)


Anzahl = InputBox("Bitte Anzahl Kopien eingeben")
For i = 1 To Anzahl
mycell = mysheet.getCellByPosition(2,2)
mycell.value = i
printProp(0).Name = "CopyCount"
printProp(0).Value = 1
myDoc.Print(printProp())
Next i
mycell = mysheet.getCellByPosition(2,2)
mycell.value = ""
End Sub