aantal afdrukken

[stefano]

Ik wil met behulp van een macro het aantal afdrukken van een dokument instellen. Er verschijnt steeds een foutmelding. Kan iemand me helpen ?

Ik heb bestaande macro aangepast

van :

Sub afdrukken()
    ActiveWindow.SelectedSheets.PrintOut "Copies:=1, Collate:=True
End Sub

naar

Sub afdrukken()
    ActiveWindow.SelectedSheets.PrintOut "Copies:=" & k1, Collate:=True
End Sub

In cel k1 staat dan een cijfer met het aantal gewenste afdrukken.

 

[Wigi]

Sub afdrukken()
    ActiveWindow.SelectedSheets.PrintOut Copies:=Range("K1").Value, Collate:=True
End Sub

 

[stefano]

ok, bedankt.

Wanneer de afdruk nu uitgevoerd wordt dan staat dat verrekte cijfer met het aantal afdrukken ook op het formulier.

Ik probeer dat te verbergen door bij de celeigenschappen, het vakje 'verborgen' aan te klikken. Niettemin verschijnt het cijfer toch op het afgedrukte formulier.

Kan ik dit oplossen ?

 

[Finch]

Je kan bv. naar het aantal copies vragen via een inputbox, ipv te verwijzen naar een cel op de af te printen sheet. Of verwijzen naar een cel op een sheet die niet wordt afgerpint.

vb. via inputbox

sub afdrukken()
AantalCopies=inputbox("Geef aantal copies in:")

ActiveWindow.SelectedSheets.PrintOut Copies:=cInt(AantalCopies), Collate:=True
End Sub

 

[stefano]

ok dat lukt,

Kan ik deze messagebox voorzien van een standaard aantal afdrukken van 2 ?

Ik bedoel, wanneer je de macro activeert, dat dan automatisch 2 verschijnt ?

dbv,

Stefano

 

[Finch]

AantalCopies = InputBox("Copies", "Hier een titel plaatsen", 2)

 

[Wigi]

Stefano

Typ eens inputbox in VBA en dan een (

Je krijgt daarna meteen de parameters / argumenten die je kan gebruiken.

Weet je niet wat die willen zeggen, geen probleem. Maar zet de cursor dan in dat woord en druk op F1. Dat is veel sneller gedaan en leert jou nog iets.

Wigi

 

[stefano]

inputbox aantal afdrukken

Ik heb onderstaande code en die werkt. Enkel wanneer ik "annuleren" kies of aantal copies op "0" of "" zet, dan verschijnt een foutmelding. Kan ik die foutmelding opvangen ?

Sub afdrukken()
    Dim aantalCopies As Integer
    aantalCopies = InputBox("Geef aantal copies in:", , 2)
    ActiveWindow.SelectedSheets.PrintOut Copies:=CInt(aantalCopies), Collate:=True
End Sub

 

[deschrik]

Dim Aantalcopies As Variant
Aantalcopies = InputBox("Geef aantal copies in:", , 2)

' 1e gedeelte:

If Aantalcopies = "" Then
   Exit Sub
End If

On Error Resume Next

' 2e gedeelte

Aantalcopies = CInt(Aantal)
If Err.Number <> 0 Then
   Aantalcopies = 1
End If

On Error GoTo 0

' 3e gedeelte:

If Aantalcopies < 1 Or Aantalcopies > 5 Then
   Aantalcopies = 1
End If

Volgens mij moet dit de foutmelding opvangen!

-Het 1e gedeelte geldt wanneer op annuleren wordt geklikt.
-Het 2e gedeelte geldt wanneer een tekst wordt ingevuld, er wordt dan 1 exemplaar afgedrukt.
-Het 3e gedeelte geldt wanneer er meer dan 5, of minder dan 1 wordt opgegeven, er wordt dan altijd 1 exemplaar afgedrukt.

Kijk maar of je hiermee wat kunt!