Bestand printen en automatisch opslaan.

[woordenboek]

Ik wil een pakbon maken en na het invullen moet deze automatisch 2 maal worden geprint en automatisch worden opgeslagen.

Bijvoorbeeld door een bepaalde celwaarde als naam te gebruiken aangevuld met de huidige datum.
of een celwaarde gebruiken en dit aanvullen met een aaansluitend volgnummer.

Ik heb een redelijke kennis van excel maar weet niet waar ik moet beginnen.

Wier kan mij helpen.

 

[vanveelen]

Hoi,

In elk geval beginnen met helderheid voor jezelf, want je wilt:

- het bestand opslaan
- tweemaal afrukken
- een celwaarde als bestandsnaam mét een dautum
- een celwaarde 'gebruiken' (ik neem aan voor die bestandsnaam?)
- wellicht een automatisch ophogend volgnummer

In de onderstaande topic vind je de macroroutine voor het opslaan van het werkblad met gebruikmaking van de inhoud van twee cellen.

http://www.helpmij.nl/forum/showthread.php/576225

Je kunt dit combineren met de inhoud van een macro die - na de voorgaande actie - het werkblad (of een deel daarvan) twee keer afdrukt.
(je moet overigens altijd éérst een werkblad opslaan, voordat je afdrukt)
Tenslotte kan je de macro, na het afdrukken, aanvullen met een opdracht het werkblad te sluiten.

Je kunt de totale macro activeren door het maken van een 'knop' in je werkblad.

 

[woordenboek]

Bedank Tee dit is een goed begin.

aanvulling op de vraag

Ik wil het bestand automatisch opslaan zonder bevestiging. Kan dat?

verder
Als in cel a1 telkens de zelfde naam staat ( denk aan klanten ) bestaat dan de mogelijkheid om in c:\documenten te kijken of deze naam al bestaat en zo ja deze automatisch met een nummer op te hogen.
bijvoorbeeld
C:\documenten\hans
c:\documenten\hans 1
c:\documenten\hans 2 enz

Groet Peter

 

[woordenboek]

Ik heb het volgende gevonden en aangepast loopt alleen vast kan hier iemand mee helpen?

Sub Macro1()
'
' Macro1 Macro
' De macro is opgenomen op 12-1-2011 door Peter.
'
' Sneltoets: CTRL+z
'

Dim myLookIn As String, myFileSearch As String
myLookIn = "c:\Test\test"
myFileSearch = "*.xls"

Dim myBeginAantal As Long
'Geef hier eventueel een beginaantal op
myBeginAantal = 50000

With Application.FileSearch
.NewSearch
.LookIn = myLookIn
.SearchSubFolders = False
.Filename = myFileSearch
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles

'Zet het aantal gevonden files in de Range("Count")
If .Execute() > 0 Then
Range("Count").Value = .FoundFiles.Count + myBeginAantalElse
Range("Count").Value = 0 + myBeginAantal
End If

End With

End Sub

Bij het vetgedrukte stopt de macro maar ik snap niet waarom.