Vaste kolommen, variabele rijen

Status
Niet open voor verdere reacties.
Code: 
Private Sub commandbutton1_Click()
Unload Me
Application.ScreenUpdating = False
With ActiveSheet
  With .PageSetup
      On Error Resume Next
        .PaperSize = xlPaperA3
       If Err.Number > 0 Then
         MsgBox "geen A3 printer aanwezig"
         Exit Sub
       End If
     On Error GoTo 0
        .Parent.Range("A2:A40,e2:f40").Font.Bold = True
        .PrintArea = .Parent.Range("A1", .Parent.Cells(Rows.Count, 9).End(xlUp)).Address
        .Zoom = False
        .FitToPagesTall = 1
        .FitToPagesWide = 1
        .CenterVertically = True
        .CenterHorizontally = True
        .CenterHeader = "&""Calibri,bold""&35" & "Geplande"
        .Orientation = xlLandscape
        .CenterFooter = "&""Calibri""&20" & " Dienst &""Calibri""&10" & vbLf & "Geprint door " & StrConv(Replace(Environ("username"), ".", " "), 3) & " op " & "&D"
    End With
  .PrintPreview
  .Range("A2:A40,e2:f40").Font.Bold = False
 End With
End Sub
 
Laatst bewerkt:
@ HSV
Bedankt voor de moeite, maar wil niet werken…
Ik zal het stukje code om de A3 printer te herkennen maar verwijderen.
Als men dan A3 printen neemt en er is geen A3 printer wordt dit gewoon op A4 geprint.
 
Als er bij u een a3 printer is zal het natuurlijk niet werken.
 
Als er een A3 printer aanwezig is print het op A3, anders de Msgbox en einde code.
 
Getest...

Als er geen A3 aanwezig is print hij dit gewoon af op A4...Krijg ook geen foutmelding.
Komt door (denk ik), als ik met TEMP = Err.Number de code doorloop, deze nooit geen foutmelding geeft en de TEMP steeds 0 is.
Dus als Err.Number > 0 Exit Sub, werkt niet omdat Err.NUmber is altijd 0.
 
Als we verder willen moet je ophouden om de code aan te passen met flauwekul.
Test de laatst geplaatste code en we vernemen het wel weer.
 
Ik heb ook geen A3 printer, maar krijg dan de melding van de Msgbox.
 
@ HSV

Echt bedankt, maar als er hier geen A3 is, enkel een A4 print hij via de knop A3 een A4 af ipv MsgBox.
Volgens mij krijg jij dan wel een Err.number, die bij mij steeds 0 blijft.

Ik geef het op! :)
 
Ik vraag me af of je wel die code uit #21 overgenomen hebt? Daar staat zelfs geen printopdracht in.
 
Wel een preview!
 
print hij via de knop A3 een A4 af ipv MsgBox.

schrijft hij
 
Dat klopt.
Hij krijgt geen melding van de Msgbox indien er geen A3 printer aanwezig is maar print het op A4 af.

Misschien wordt het tijd om die Macintosh bij grof vuil te zetten.
Ron heeft bij elke code problemen waar een ander ze niet heeft.
Bekijk al zijn bijdragen.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan