printknop (command)

[niels987]

dag iedereen,

wat een uitkomst zo'n forum!

Ik probeer met excel een bestellingprogramma in elkaar te knutselen waar, als het af is, alleen nog maar de verbruikte artikelen ingetypt hoeven worden op het bestelmoment.
En dat je met 1 druk op de knop een orderbon uit de printer hebt. Ik heb dit geprobeerd met de commandbutton maar welk commando moet ik invoeren, ik dacht zelf aan ctrl+p maar die accepteerd ie niet.

Iemand??

Alvast bedankt voor de hulp!

Niels

 

[Wigi]

Zoiets in deze aard

ActiveSheet.PrintOut Copies:=1, Collate:=True

Wigi

 

[Gremail]

Door toevoegen van de printernaam heb je keuze uit een specifieke printer als er meerdere zijn, b.v. in een netwerk.

Code:
Application.ActivePrinter = "zet hier de printernaam:"
ActiveSheet.PrintOut Copies:=1, ActivePrinter = "zet hier de printernaam:", Collate:=True

 

[niels987]

Dank voor de snelle reactie maar kom er nog steeds niet helemaal uit.
Ik heb het bestand meegezonden dit keer, praat makkelijker.
Er staan vragen in het bestand.

nogmaals bedankt,

Niels

 

[arafy]

niels,

ik zou de brief in word maken en daar zeggen dat ze alleen die records moeten nemen waar iets instaat.

groeten,

steven

 

[robdgr]

Misschien helpt je dit op weg:

Sub print_bestelbon()
'
    Range("C7:D11").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=2, Criteria1:="<>"
    ActiveSheet.PageSetup.PrintArea = "$C$7:$D$11"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

 

[jpvs]

En voor alles terug weer te geven kun je dit gebruiken :

Sub AllesWeergeven()
    If ActiveSheet.FilterMode = True Then
        ActiveSheet.ShowAllData
    End If
End Sub

Pierre

 

[niels987]

Bedankt voor de tips maar ik kom er nogsteeds niet uit. elke keer als ik dubbelklik op die knop dan komt dat scherm met invoer weer tevoorschijn.. kan iemand het misschien invullen en dan terugsturen??

alvast bedankt voor diegene die eruit komt.

 

[jpvs]

Bij deze.

Pierre

 

[niels987]

Dat bedoel ik dus!!

Perfect, bedankt

GR Niels