bestand openen uit folder en dan printen

[coxonitus]

Hallo Allemaal,

ik gebruik onderstaande code om een bestand te selecteren uit een folder.
nu zou ik graag willen, dat als ik een file selecteer uit die folder mij meteen de vraag wordt gesteld of ik deze file wil afdrukken met het aantal exemplaren. De drukknop bevindt zich op een schakelbord elders.
kan iemand mij helpen?

Dim FolderName As String
Dim Fld As Object
Set Fld = CreateObject("Shell.Application").BrowseForFolder(0, "Select folder", 512, "C:\Documents and Settings\jschulpen\Bureaublad\projectberstanden\Actielijsten\2011 ")
If Not Fld Is Nothing Then
FolderName = Fld.Self.path
Call Shell("explorer.exe " & FolderName, vbNormalFocus)
End If

"hier moet een code komen te staan dat ik de xlsfile heb geopend uit de folder " Dim A As String

A = MsgBox("u wil dit bestand afdrukken", vbJaNee, "")

If A = vbJa Then
Application.Dialogs(xlDialogPrinterSetup).Show
ActiveSheet.printout
"met aantal kopieenEnd If"

"als nee einde sub"
End Sub

 

[ExcelAmateur]

coxonitus,

Lijkt dit op wat je bedoel?

Zou je de volgende keer de code willen selecteren en dan boven in het menu op # klikken.
Dan komt de code netjes in een apart vak te staan.

Sub test()
Dim FolderName As String
Dim Fld As Object
Dim A As String
Set Fld = CreateObject("Shell.Application").BrowseForFolder(0, "Select folder", 512, _
"C:\Documents and Settings\jschulpen\Bureaublad\projectberstanden\Actielijsten\2011 ")
  If Not Fld Is Nothing Then
    FolderName = Fld.Self.Path
    Call Shell("explorer.exe " & FolderName, vbNormalFocus)
  End If
  'hier moet een code komen te staan dat ik de xlsfile heb geopend uit de folder
  MsgBox "U heeft " & FolderName & ".xls " & " geopend"

A = MsgBox("u wil dit bestand afdrukken", vbYesNo, "")
  If A = vbYes Then
    Application.Dialogs(xlDialogPrinterSetup).Show
    ActiveSheet.PrintOut
    '"met aantal kopieen End If"
  ElseIf A = vbNo Then
    Exit Sub  'als nee einde sub
  End If
End Sub

 

[coxonitus]

hi excel amateurtje,

zou je me ook willen aangeven als ik de file open waarin meerdere sheets zitten hoe ik in de dialog kan aangeven welke pagina kan uitprinten

thnx

 

[ExcelAmateur]

coxonitus,

Ik heb even voor je gezocht hier binnen "Helpmij" en een bestandje van Warme bakkertje gevonden.
Kijk er even in en misschien kun je er wat mee.