AW: druckvorgang umgehen wenn zelle leer ist?
12.11.2007 19:38:00
Lukas
hallo,
habe doch noch ein problem:
Public Sub Bestellungen_drucken()
Worksheets("Tabelle41").Activate
ActiveSheet.Range("A21").Select
If Len([a22].Text) > 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Else
End If
End Sub
wenn ich dies so in eine prozedur schreibe und diese mit dem namen"bestellungen_drucken" aufrufe so ignoriert mir vba diese anweisung? setze ich aber zum besipiel anstelle der if-anweisung einfach "Application.Dialogs(xlDialogPrint).Show" ein so ruft er diese fenster auf und ich kann drucken. dies will ich ja nicht, ich will wen in tabelle41 zelle a22 nichts ist das er nicht druckt und sonst schon. aber automatisch ohne frage nach dem drucker.
kann mir jemand helfen?
gruess