-
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Automatisch datum aanpassen bij printopdracht
- Onderwerp starter auxi
- Startdatum
- Status
Hallo allemaal!
ff zeggen dat eea perfect werkt, dus mijn dank is groot!!
ik heb wel nog 1 paar vragen:
1) als ik nu 2 prints ingeef, komt vandaag als print mee, 3 prints dus. Kan ik het zo inrichten, dat als ik zeg 2 x printen dat allen vandaag en morgen geprint zal worden?
2) kan de (formulier)datum na het printen terug gezet worden naar bv vandaag? Nu wordt nm de (formulier)datum de datum van de laatste print, bv 2 dagen printen zal de datum op 13/09 komen te staan.
3) als ik nu meerdere tabbladen maak, moet ik dan de VBA code in elk blad verwerken? Of kan eea op 1 andere manier?
Alvast bedankt voor jullie hulp.
Groet,
Auxi
ff zeggen dat eea perfect werkt, dus mijn dank is groot!!
ik heb wel nog 1 paar vragen:
1) als ik nu 2 prints ingeef, komt vandaag als print mee, 3 prints dus. Kan ik het zo inrichten, dat als ik zeg 2 x printen dat allen vandaag en morgen geprint zal worden?
2) kan de (formulier)datum na het printen terug gezet worden naar bv vandaag? Nu wordt nm de (formulier)datum de datum van de laatste print, bv 2 dagen printen zal de datum op 13/09 komen te staan.
3) als ik nu meerdere tabbladen maak, moet ik dan de VBA code in elk blad verwerken? Of kan eea op 1 andere manier?
Alvast bedankt voor jullie hulp.
Groet,
Auxi
HSV
Inventaris
- Lid geworden
- 18 jul 2008
- Berichten
- 20.973
- Office versie
- Bèta Insider Office 365
Vraag 1 moet je eens uitleggen.
Je zet een 2 in de inputbox en er verschijnen drie prints?
Vraag 2 en 3.
Plaat de sub hsv() in een standaard module, en zet in elk blad de commandbutton_click code.
Anders moet je een gewone knop maken en de code hsv eraan koppelen.
Je zet een 2 in de inputbox en er verschijnen drie prints?
Vraag 2 en 3.
Plaat de sub hsv() in een standaard module, en zet in elk blad de commandbutton_click code.
Anders moet je een gewone knop maken en de code hsv eraan koppelen.
Code:
Private Sub CommandButton1_Click()
[COLOR=#ff0000] hsv[/COLOR]
End Sub
Code:
sub hsv()
dim pr as string, j as long, t as long
t = Application.InputBox("Aantal dagen:", "Dagen", , , , , , 1)
If t > 0 Then
pr = application.activeprinter
application.activeprinter = ?????????????????????
For j = 1 To t
ActiveSheet.PrintOut
[J1] = [J1] + 1
Next j
[COLOR=#FF0000][j1] = date[/COLOR]
application.activeprinter = pr 'de standaard printer
End If
end subHallo,
dank voor de vlotte reactie! Ga e.e.a. uitproberen.
V.w.b. vraag 1) bedoel ik; dat als ik bv vandaag 1 opdracht voor 2 prints geef, krijg ik er 3 tw vandaag, morgen en overmorgen!
Ik zou verwachten dat er 1 print met datum voor vandaag en 1 met datum morgen, of morgen en overmorgen uit zou rollen.
Hoor graag van je
dank voor de vlotte reactie! Ga e.e.a. uitproberen.
V.w.b. vraag 1) bedoel ik; dat als ik bv vandaag 1 opdracht voor 2 prints geef, krijg ik er 3 tw vandaag, morgen en overmorgen!
Ik zou verwachten dat er 1 print met datum voor vandaag en 1 met datum morgen, of morgen en overmorgen uit zou rollen.
Hoor graag van je
HSV
Inventaris
- Lid geworden
- 18 jul 2008
- Berichten
- 20.973
- Office versie
- Bèta Insider Office 365
Stel dat 't' 2 wordt...... dan is:
=
Dan kunnen er geen drie prints uitrollen.
Of je moet dit even toepassen.
Code:
For j = 1 To t
Code:
For j = 1 To 2Dan kunnen er geen drie prints uitrollen.
Of je moet dit even toepassen.
Code:
ActiveSheet.PrintOut[COLOR=#ff0000] 1, 1, 1[/COLOR]- Status
