jeudi 19 février 2015
pdf printen
Posted on 05:04 by Unknown
Hallo Allemaal,
ik heb onderstaande code via Ron de Bruin en werkt perfect.
Echter met PDF printen doet het anders, dan worden de bestanden 2x opgeslagen?
Dus als ik print, krijg ik in dit geval 5 pagina's netjes afgedrukt. 2x voorblad en 3 bijbehorende bladen
Als ik pdf print moet ik 1x 2pagina'svoorblad opslaan en 1x 3pagina's bijbehorend, en dat terwijl ik dit ook als 1 pdf bestand wil afdrukken en opslaan
iemand een idee??
Sub Print_All_Worksheets_With_Value_In_T1()
Dim Sh As Worksheet
Dim Arr() As String
Dim N As Integer
N = 0
For Each Sh In ActiveWorkbook.Worksheets
If Sh.Visible = xlSheetVisible And Sh.Range("T1").Value <> "" Then
N = N + 1
ReDim Preserve Arr(1 To N)
Arr(N) = Sh.Name
End If
Next
With ActiveWorkbook
Application.Dialogs(xlDialogPrinterSetup).Show
.Worksheets(Arr).PrintOut
End With
End Sub
grt P
ik heb onderstaande code via Ron de Bruin en werkt perfect.
Echter met PDF printen doet het anders, dan worden de bestanden 2x opgeslagen?
Dus als ik print, krijg ik in dit geval 5 pagina's netjes afgedrukt. 2x voorblad en 3 bijbehorende bladen
Als ik pdf print moet ik 1x 2pagina'svoorblad opslaan en 1x 3pagina's bijbehorend, en dat terwijl ik dit ook als 1 pdf bestand wil afdrukken en opslaan
iemand een idee??
Sub Print_All_Worksheets_With_Value_In_T1()
Dim Sh As Worksheet
Dim Arr() As String
Dim N As Integer
N = 0
For Each Sh In ActiveWorkbook.Worksheets
If Sh.Visible = xlSheetVisible And Sh.Range("T1").Value <> "" Then
N = N + 1
ReDim Preserve Arr(1 To N)
Arr(N) = Sh.Name
End If
Next
With ActiveWorkbook
Application.Dialogs(xlDialogPrinterSetup).Show
.Worksheets(Arr).PrintOut
End With
End Sub
grt P
pdf printen
Categories: pdf printen
Inscription à :
Publier les commentaires (Atom)
0 commentaires:
Enregistrer un commentaire